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REDAKTÖREN FUNDERAR 


Det har varit en hektisk period under v§ren då antalet 
installerade PET-an läggningar har ökat i en takt som är 
helt otrolig. 

Det finns nu över 3500 PET-användare i Sverige och ju 
fler vi blir desto större resurser kan användas för 
programutveckling. Det är ju styrkan i en PET-anläggning 
att antalet användare är så stort att en kontinuerlig 
programutveckling låter sig göras. 

Datatronic ab har inlett ett kurssamarbete med Ekonomisk 
Företagsledning för att på ett seriöst sätt kombinera 
två olika kun sk apsprof iler. 

Datatronic ab står för program kundsk ap och 
mikrodatorkunskap och Ekonomisk Företagsledning 
representerar ett stort kunnande på de administrativa 
rutinernas område. 

Priset på en PET lämplig för ordbehandling har sjunkit 
genom introduktionen av en ny skönskri vare. Komplett 
kostar nu en ordbehandlingsutrustning 34.990 kr vilket 
är ett mycket konkurrenskraftigt pris på 
ordbehandlingsmarknaden. 

Alla ni som har någon intressant tillämpning eller ett 
eget program som kan vara av intresse för fler. Skriv en 
artikel som beskriver tillämpningen så kanske det kan 
bli en ökad spridning, med ofta förbättrad 
programkvalitet som resultat. 

Det behöver förresten inte vara en artikel utan en liten 
notis går precis lika bra. 

PET-klubben fortsätter att öka eftersom alltfler 
upptäcker nyttan av att få information om sin PET-dator 
och dess utveckling. 

Väl mött i sommaren 

Redaktören 
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PROGRAMBYTARNA 


I förra numret av PET-nyheterna utlyste vi en liten 
pro grammering stävl i ng. Kan det vara den, som tagit upp 
medlemmarnas tid helt och hållet? Faktum är, att bara 
ett insänt program den här månaden har varit av sådan 
klass, att det kunnat komma i fråga som MHNADEN PROGRAM. 
Och ett enda program gör ju ingen tävling. Programmet 
står alltså över och tävlar nästa månad i stället. 


BLI PROGRAMBYTARE 

För den som är ny i klubben tar vi tillfället i akt 
att presentera reglerna för Pro g ram by tarna: 

Om du har gjort ett program som uppfyller vissa 
kvalitetskrav, får du ur Program by t arnas Index välja ett 
program som någon annan skickat in. I så fall kommer 
även ditt program att upptas i Pro gram by t arnas Index. 

Programmet kan vara lagrat på kassett eller skiva, 
och skall åtföljas av en lapp som talar om: 

Vem du är. 

Var du bor. 

Din telefon (dag och kväll). 

Programmets namn. 

Kort beskrivning av programmet. 

Din PET's typnummer (finns på en skylt på PET's 

baksida). 

Vilket program du vill byta till dig, samt 
Frimärken för fem kronor för att täcka 

retu rportot. 


ENKLA REGLER 

1. Du skall vara medlem i PET-klubben. 

2. Programmet skall vara på svenska (om det inte är 
exempelvis ett program för att träna översättning från 
Urdu till Swahili). 

3. Det skall i programmet ges ordentliga 
instruktioner om vad det hela går ut på och hur man 
skall bete sig. 

4. Du skall omfatta iden med Computer Lib, och inte 
göra program som låter PET vara oförskämd eller 
arrogant. Ett program som kallar mig för 1 sucker' eller 
1 bonn läpp' åker bums i papperskorgen. Jag upprepar detta 
med envisheten hos en berusad papegoja, trots att vissa 
anser att sådana saker 'ger programmet temerament'. 
Argumentet har inte fått mig att tänka om, och jag 
emotser insändare i frågan. 

Comupter Lib? Läs PET-Nyheterna nummer 2 1980, 

te xem pe l . 







5. Du förbinder dig att inte till' andra Lämna ut de 
program du får genom pro gram by tarna . 

Givetvis behåller du rätten till att ekonomiskt 
utnyttja ditt program, men genom att du skickar in det 
till Program by tarna , har du medgivit att det får komma 
med i Program by t arnas Index, och att andra därmed har 
rätt att byta till sig ditt program. 

Är ditt program speciellt i nåtot avseende, kan det 
bli upptaget till Månadens Program, med särskilt 
omnämnande och kommentarer i PET-nyheterna. Med detta 
följer, att du får en pärm för flexskivor. 


PROGRAMBYTARNAS INDEX 



Just nu ser 

Programbytarnas 

Index ut 

1 

Invade rs 



2 

Othello 



3 

Nim 



4 

B i o r y tm 

(skrivare 

behövs) 

5 

Tips 

(sk rivare 

behövs) 

6 

Primtal 

(skrivare 

behövs) 

7 

Riddare 



8 

Sta r-t r ek 



9 

3-d luffarschack 


10 

Biljard 



11 

Mån land a re 



12 

Imphe x 



13 

Robot nim 



14 

Mast e rmind 



15 

Mast erm ind 

2 


1 6 

Don Martin 

(skrivare 

behövs) 

17 

Y at zy 



1 8 

Blackbox 



21 

Bågskytte 



22 

Laser 



23 

Lotto 2 

(skrivare 

behövs) 

24 

Kalender 

(skrivare 

behövs) 


RIDDARE 

Ett program som givit många åtskilliga sömnlösa 
nätter är 'Riddare'. Minst 200 personer har sett det, 
och mig veterligt är det bara sju personer av dessa som 
knäckt koden. Ide'n är denna: 

Pet kastar fem tärningar, och ber dig gissa 
poängtalet för dessa. Det luriga är, att poängtalet inte 
är summan av prickarna. Man skall alltså räkna på ett 
speciellt sätt. I och med att man kommit på detta sätt, 
blir man upptagen i R i dde r s k ape t. Som sådan har man 
skyldighet att sprida problemet, och får glädjen att åse 
andras förtvivlade försök. 

Vad jag vet har ingen klarat koden genom att läsa 
programlistan: Den är med flit ett enda sammelsurium av 
hopp och l oopa r. 

Så skicka in ditt bästa program coh ta en duvning 
med Riddarna. 


J . Stie rnborg 




PET-LÖN - MARKNADENS BÄSTA LÖNEPROGRAM FÖR MINDRE- OCH 
MEDELSTORA FÖRETAG 

Anne Eriksson och Anders Fritjofsson har vid 
Handelshögskolan i Stockholm gjort en kartläggning av de 
s.k. standardprogram som finns för löneadministration på 
den svenska mi kroda t ormarknaden. Med denna artikel ger 
vi en sammanfattning av deras undersökning. 

ALLMÄNT OM ST ANDARDPROGRAM 

Att standardprogram utvecklas för mikrodatorer beror 
främst på att man därigenom kan sprida de höga 
program ut ve c k l ingsk o stnaderna på flera användare. En 
intressant händelse som skett under det senaste året är 
att man i större utsträckning börjat tillverka 
standardprogram som går att använda till flera olika 
mikrodatorer. Detta på grund av det gemensamma 
operativsystemet CPM - Control Program for 
Mi croprocessors. Med CPM kommer förmodligen ökade 
stordriftsfördelar att kunna uppnås vid 
programutveckling. 

Alla datortillverkare satsar dock ej på 
operativsystemet CPM. TRS 80 som kan anslutas till 
systemet väljer att tillverka egna standardprogram som 
är spec i alanpassade till den egna datorn, samma sak 
gäller Apple. 

Det är osäkert hur populärt CPM kommer att bli då detta 
ej anses som det bästa operativsystemet men väl ett som 
har blivit någon slags standard. Om mjukvaran kan 
anslutas till vilken hårdvara som helst så kommer dator 
valet att bli en ren prisfråga. 

Som datasystemköpare är det ganska ointressant om 
operativsystemet är CPM anslutet eller icke då man är 
mest intresserad att få ett system som fungerar bra. 
Fördelen att ha både hård och mjukvara producerade av 
samma företag, som t.ex. Datatronic är att man får ett 
företag som garanterar att hela systemet fungerar. 

Om hård- och mjukvara är producerat var för sig kan 
tillverkarna skylla på varandra om eventuella fel 
upkommer. Dessutom är det inte hela sanningen att man 
kan koppla ihop vilken hård och mjukvara som helst och 
få ett fungerande system. Ibland krävs tekniska 
tillbehör och givetvis finns kapacitetsbegränsningar i 
hårdvaran. 


VAD ETT LÖNESTANDARDPROGRAM BÖR INNEH8LLA 

Ett lönest and ardprogram bör i princip kunna ta hand om 
hela löneadmi ni strationen i ett företag vilket kan 
sammanfattas som: 







- Beräkning av Löner och prel.skatt för varje anställd 
samt utskrift av lönebesked och banklöneli st or 

- Interna rapporter såsom bokför ingsunderlag, 
skatte list or, orderkalkyler, m.m. 

- Externa rapporter såsom fa c kfören ingsli st a, 
kontrolluppgifter, SAF- och ATP-statist i k, m.m. 


Som tillverkare av l önest and ardprogram måste hänsyn 
tagas till att ett lönesystem snabbt blir inaktuellt på 
grund av ständigt förekommande ändringar i avtal och 
lagar. Därför måste programmen vara så anpassade att 
sådana förändringar kan ske till en relativt låg 
kostnad. Vidare bör systemet kunna täcka in så många 
avtalsområden som möjligt. Därvid ställer ofta den, hos 
de flesta program ut ve c kla re, avskydda semesterla gen till 
stora problem. Det verkar som om ingen riktigt har 
lyckats tyda den nya semesterla gen och från flera håll 
vill elaka tungor även ifrågasätta om ens lagstiftarna 
själva kan det. 

MIKRODATORER MED LÖNEST ANDARDPROGRAM 

Många företag erbjuder färdiga lönestandardprogram i sin 
annonsering, ofta befinner sig inte dessa program mer än 
i planeringsstadiet. 

Nedan följer en kartläggning av de kontor sdatorer under 
80.000 kronor som kan erbjuda standardpaket för löner. 

PET C0MM0D0RE 

På Datatronic AB har intervjuer gjorts med VD Mats 
Gabrielsson och PET-löneprogram me ts utvecklare Stig 
Lundqvist. PET:s löneprogram, PET-LÖN, har funnits i 
knappt ett år på marknaden och har sålts i c:a 300 
exemplar. För Datatronics program gäller den s.k. 
livstidsgarantin, vilket innebär att man ständigt gör 
revideringar och uppdateringar som kostnadsfritt skickas 
till kunden. Uppdateringar som därmot beror på 
lagstiftning, t.ex. skattetabeller, sker mot en kostnad 
av 250 kronor. Antal anställa som får plats i PET-LÖN är 
maximerat till 300 (på varje diskett) på PET 8000. 
PET-LÖN omfattar i princip alla funktioner som ett 
l öneadmi nistrat i onspaket bör ha, dock ej 
semesterredovisning.Dessutom har man möjlighet att 
koppla in ett orderregister. Datatronic gör ogärna 
specialanpassningar i sina program. Däremot kan en del 
återförsäj la re göra detta, men i så fall gäller inte 
Datatronics livstidsgaranti och även problem kan uppstå 
i samband med uppdateringar för t.ex. nya 
skattetabeller. PET-LÖN i sig innefattar dock stora 
möjligheter till variationer i t.ex. lön- och 
avdragsarter. Ett komplett PET-system med skrivare som 
behövs för PET-LÖN kostar mellan 25-35.000 kronor och 




motsvarande program 1200-1800 kronor. Vissa 
återförsäljare erbjuder utbildning vid behov. 

APPLE 

Gylling, som är generalagent för Apple, går inte ut på 
samma sätt med enhetliga program för Apple som 
Datatronic gör. Istället utvecklar fristående och 
inbördes konkurrerande konsulter programmen. Intervju 
har gjorts med två konsulter som på skilda håll 
utvecklar löneprogram till Apple. Den ena, Z. 

Maliszewski, ZM-konsult, blev nyligen klar med sitt 
program. Detta program klarar alla lönerutiner med 
undantag för semesterredov isningen. Varje diskett kan 
lagra upp till 100 anställda och direkt samköming med 
ett bokför ingsprogram, som också har konstruerats av 
Maliszewski, kan också göras. ZM-konsult garanterar 
uppdateringar för lagförändringar i minst tre år. I 
priset 15.000 kronor ingår smärre justeringar om så 
kunden önskar. Vidare ingår den hjälp som behövs för att 
få systemet att fungera ute på företag. 

Den anda konsulten är Ske Schwartz på SLS Mjukdata HB, 
som har sålt sitt löneprogram i c:a ett halvår. 

Detta system klarar de flesta lönerutiner med undantag 
för semesterredov isning och automatiska sjukavdrag. 
Justeringar i programmet kan göras mot timdebitering. 
Systemet är begränsat till 150 anställda. Lönerna kan 
vidare kopplas till olika kostnadsställen. Kostnaden for 
programmet är c:a 4.000 kronor och för eventuell 
utbildning vid installatiom tillkommer 1.500-2.000 
kronor per dag. 

I övrigt går det bra att ansluta Apple till CPM ifall en 
särskild processor ansluts till systemet. Den hårdvara 
som rekommenderas dessa löneprogram ligger på minimum 
33.000 kronor. 

ABC-80 

På kontorssidan marknadsförs ABC-80 av Skand i a Metri c. 
Det löneprogram som finns till ABC-80 har funnits på 
marknaden i ett halvår och sålts i c:a 20 exemplar. 
Löneprogrammet har sitt tak vid 61 anställda. Det finns 
ingen skattetabell inlagd, ej heller SAF- eller 
ATP-statist i k, semesterredov isning eller automatiska 
sjukavdrag. För närvarande kan programmet ej heller 
skriva ut banklistor, men en omarbetad version son 
klarar detta är under utarbetande. Någon direkt 
utbildning vid installation finns ej. Programvarugaran1 1 
finns och smärre anpassningar kan göras. Programmet 
kostar idag 2.000 kronor och minimipris for lamlig 
hårdvara är 22.000 kronor. 


CR0MEMC0 

C romemco är en av de nyare maskinerna på den svenska 
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marknaden. Datorisering AB, generalagent för Cromemco, 
har valt att helt ansluta sig till CPM-utve c klade 
program. Datorn är anpassad för större datamängder, dvs. 
den har större kapacitet och snabbhet än t.ex. Apple som 
också kan anslutas till CPM. Programmen i sig har oftast 
inte begränsningar av typen hur många anställda etc. 
utan de är istället beroende av skivminnets kapacitet. 
Den billigaste maskinen komplett med skrivare kostar c:a 
42.000 kronor. Samarbete sker med konsultföretaget 
Beslutsmodeller AB, som utvecklar standardprogram till 
CPM-baserade datorer. Enligt Anders Myren på 
Beslutsmodeller håller man där på att utveckla ett 
löneprogram som beräknas bli klart under våren för 
försäljning. Programmet innefattar de vanliga 
rutinerna, bortsett från det ständiga problemet med 
semesterredovisningen. Priset på mjukvaran kommer att 
ligga omkring 8.000 kronor. Sedan är det 
återförsäljarens sak att ombesörja utbildning och 
installation. Man går gärna in och gör ändringar i 
programmet, men Beslutsmodeller har ensamrätt på att gå 
in och ändra i sina program. Man bevakar de förändringar 
som görs så att kunden inte får problem vid t.ex. 
uppdaterinagr av skattetabeller. Programmet har två års 
garanti och dessutom går Beslutsmodeller in och gör 
revideringar halvårsvis. 

NYA VIP VECT0R 

Enligt Jan Schmidt på Dicro AB, generalagent för 
VIP Vector, kommer de under våren att lansera ett 
färdigutvecklat löneprogram. Alla de vanliga rutinerna 
finns med och man tror sig dessutom kunna klara av 
semesterredovisningen. Gunnar Göransson, Konsultgruppen 
AB - som har utvecklat programmet - tillägger dock att 
man gjort två mycket förenklade standardiseringar; en 
för tjänstemän och en för kollektivanställda. 
Konsultgruppen går gärna in och ändrar i programmet till 
ett i förväg uppgjort pris. Minimipris för den hårdvara 
som detta program kräver är 40.000 kronor. Själva 
löneprogrammet kostar 3.900 kronor och ytterligare 900 
kronor för installation. 

CANON 

Krister Bengtsson har utvecklat ett löneprogram till 
Canon som nyligen blev klart. Kostnaden för programmet 
är 3.700 kronor. Minimipris för lämplig hårdvara är 
43.000 kronor. Skattetabell finns ej inlagd och ej 
heller automatiskt sjukavdrag eller semesterredovisning. 
Vidare kan ej SAF-statist i k erhållas, men det går att få 
underlag till ATP och kontrolluppgifter. Krister 
Bengtsson kan om så önskas gå in och ändra i programmet 
mot ti mdebitering. 


ADLER TA 20 SE 




Adler marknadsförs av Berg Bolinder AB. De kan erbjuda 
ett datasystem med skrivare för 60.000, som man kan köra 
löner på. 

Löneprogram me t kostar 11 .000. I priset ingår cirka 3 
dagars installation, där man får hjälp med uppläggning 
av t.ex. lön- och avdragsarter. Man får ut underlag för 
statistik, men får föra över de siffror som krävs själv. 
Det finns dock ingen skattetabell inlagd. Man vill helst 
inte gå in och göra förändringar i standardprogrammen. 

TRIM MARKETING AB 

Trim Market ing är en grossist på datormarknaden. De 
köper in datorer direkt från USA (ett 20-tal märken) som 
de sedan säljer vidare till återförsäljare i Sverige. De 
säljer datorer som kan anslutas till CPM och de 
samarbetar med konsultföretaget IL0G som utvecklar 
program för dessa. Dessutom fungerar IL0G som 
återförsäljare av hårdvaran. Enligt Hr Dahl på IL0G 
finns det två olika program; ett för tjänstemän och ett 
för ackords an stä l Ida . Programmen har funnits på 
marknaden drygt ett år. Skattetabell, sjukavdrag eller 
semesterredov isning finns ej inlagda i programmen. 
Programändringar kan ske mot t imdebi tering. Kunden kan 
teckna en trygghetsgaranti, som kostar 1.000 kronor per 
år, och ger kunden möjlighet att ringa vid problem. 
Dessutom ingår en uppdateringsservi ce . Löneprogrammet 
för tjänstemän kostar 3.000 kronor och det för 
ackordsanstä l Ida 4.000 kronor. Inst al la t ionsutb ildnining 
kostar per halvdag 500 kronor. 

SLUTKOMMENTAR 

Avslutningsvis ansågs Datatronics lönest andardprogram 
PET-LÖN vara det program som för närvarande får anses 
som den bästa lösningen för ett mindre eller medelstort 
företag. Detta baserat på dels den höga 
utvecklingsgraden och dels det relativt låga priset. 
Vidare noterades att Datatronics erfarenheter av 
lönerutiner för mikrodatorer är den största på marknaden 
med sina c:a 300 installationer. 


c 

c 


t 
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PET_för_yärdering_av_skog 

Kaj Nilsson i Falun satt och räknade för hand i nästan 
fyra år innan han bestämde sig. Inte för att anställa 
mer folk utan för att utnyttja någon form av datakraft. 
Han jobbar inom det fyraåriga konsultbolaget 
"KraftLedningsprojektering AB" i Falun. Kaj Nilsson 
värderar de mark- och skogsskiften där kraftledningar 
ska dras fram. 

All skog som behöver fällas när ett kraftbolag behöver 
dra fram en ny ledning måste först märkas. Sedan mäts 
och värderas den, för att varje skogsägare ska ha 
ersättning för sitt speciella skogsskifte. 

I^i_il!D!D3r_2£b_§D_!svart_för_varj[e_skggsski.fte 

När Kaj gjorde alla beräkningar manuellt räknade han med 
att arbetet tog ca två timmar per skogsskifte. Till det 
ska läggas en kvart som det tog sekreteraren att skriva 
ut alla uppgifter. 

När "KraftLedningsprojek tering AB" fick uppdraget att 
beräkna skogen för en kraftledning som gick över 400 
skogsskiften tog Kaj Nilsson steget. Han bestämde sigför 
att skaffa en dator. Enbart beräkningsjobbet för det här 
stora projektet skulle ha tagit ca ett halvår. 

Kaj Nilsson kontaktade programmeringskonsult Jan Eehn i 
Surte för att höra om det fanns någon lösning på hans 
problem. Kaj och Jan gick tillsammans igenom problemen 
och det visade sig att en Commodore PET dator för ca 
25.000 kr skulle räcka till för att hantera alla 
beräkningsformlerna samt de enorma utbytestabeller som 
utgör grunden i all värdering av skog på rot. 

Datorsystemet är nu i drift sedan några månader. 

Resultatet blev detta: Inmatning av data från 
mätningsprotokollet tar bara någon minut och själva 
beräkningsarbetet ca 50 sekunder. Från datorn får också 
Kaj resultaten direkt utskrivna. 

£ykb£lt_så_mycket_jobb_på_samma_tid 

Kaj Nilsson kan idag göra minst dubbelt så många 
värder ingsuppdrag som tidigare. Hans tid kan utnyttjas 
för andra, ännu mer lönsamma arbetsuppgifter i 
företaget. Dessutom blir hans jobb mer omväxlande och 
st imulerande. 










FACKVERK 

- ett mikrodatorprogram för analys av rymdfackverk 


FACKVERK tillåter - knutlaster 

- stödförskjutningar 

- temperaturlaster 

- fjädrar 

FACKVERK beräknar - knutförskjutningar 

- reaktionskrafter 

- spänningar 

- snittkrafter 

- lokala knäckkrafter 

FACKVERK - lagrar systemmatrisen med variabel 

bandvidd, Stora problem löses även i lfeK 

- kräver floppy disc. Programmet utnyttjar 
overlaystruktur 

- kräver inte printer 

- är ett FEM-program fullt jämförbart med kommersiella 
program för stordatorer 

- är användarvänligt. Indata ges pä ett enkelt sätt 
och lagring sker pä disketten 

PRIS 19501- inkl. manual med instruktiva exempel 

Ett program för beräkning av sektionsstorheter 
för standardsektioner medföljer 


Exempel på problem lösta med FACKVERK 1 



Postadress Telefon 

Ängslyckan 45, 427 OO Bllldal 031-91 32 25, 91 32 62 













PLANRAM 


- ett mikrodatorprogram för statisk planramsanalys 


PLANRAM tillåter - knutlaster 

- utbredda trapetsformade laster 

- stödförskjutningar 

- temperaturlaster 

- fjädrar 

PLANRAM beräknar - knutförskjutningar 

- reaktionskrafter 

- spänningar 

- elementförskjutningar 

- snittkrafter 

PLANRAM - lagrar systemmatrisen med variabel 

bandvidd. Stora problem löses även i 16K 

- kräver floppy disc. Programmet utnyttjar 
overlaystruktur 

- kräver inte printer 

- är ett FEM-program fullt jämförbart med kommersiella 
program för stordatorer 

- är användarvänligt. Indata ges på ett enkelt sätt 
och lagring sker på disketten 


PRIS 19505- inkl. manual med instruktiva exempel 

Ett program för beräkning av sektionsstorheter 
för standardsektioner medföljer 


Exempel på problem lösta med PLANRAM 5 



Postadress Telefon 

Ängslyckan 45, 427 00 Bllldal 031-91 32 25, 91 32 62 
















KOMMUNIKATION MED IEEE-ENHETER I MASKINKOD 


Att göra egna rutiner i maskinkod som hanterar kommunikation 
med olika IEEE-enheter är en kanska krävande uppgift. Man 
måste då i detalj veta hur IEEE-488 standarden är uppbyggd. 
Ett enklare sätt är att är att utnyttja BASICens rutiner. 


Kommunikationen via HP-bussen sker i fyra faser. 

1. Upprätta förbindelse 

2. Skicka SEKUNDÄRADRESS 

3. Hämta/Skicka data, fas 3 repeteras tills alla data 
är mottagna/i v äg sk i c kade. 

4. Bryt förbindelse 

Totalt finns det åtta olika rutiner du behöver använda. Varje 
fas finns i två varianter, en för INPUT och en för OUTPUT. 


r 


PARAMETER- 

IN. UT 

Enhetnumme r 
i pos FA C=$d4) 

Sekundäradress 
mellan 0-31 
ORA #$60 i 
A-registret. 

D at a i 
A-registret 


förbindelse 



FAS 

FUNKTION 

INPUT- 

LABEL 

ADRESS- 
BAS 2 

BAS 4 

1 

Upprätta 
förbindelse 

TALK 

SF0B6 

$ F 0 D 2 

2 

Skicka 
se kundä rad r 

TKSA 

$F1 64 

$ F1 93 

3 

Hämta skicka 

ACPTR 

$ F1 8 C 

$ F1 CO 

4 

Bryt 

UNTLK 

$ F1 7 F 

$ F 1 A E 


FAS 

FUNKTION 

OUTPUT 1 

LABEL 

ADRESS- 
BAS 2 

BAS 4 

PARAMETER- 

IN. 

UT 

1 

Upprätta 

förbindelse 

LISTN 

$ FOB A 

SF0D5 

Enhetnummer 
i pos FA (=$d4) 

- 

2 

Skicka 

sekundäradr 

SECND 

$ F1 28 

$ F1 43 

Sekundäradress 
mellan 0-31 

ORA #$60 i 

A-registret . 


3 

Hämta data 

CIOUT 

$ F 1 6 F 

$ F1 9 E 

Data i 

A-reg i st ret 

- 

4 

Bryt 

förbindelse 

UNLSN 

$ F1 83 

$ F 1 B 9 

- 

- 


r 

r 
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EXEMPEL NR 1 


Skicka "d1=0" till skivminnets kommandokanaL: 


ADR 

BASIC 

2 

BASIC 

4 

LABEL MNEM0NICS 

KOMMENTAR 



0 27 A 

A9 

08 


A9 

08 


LDA 

# 8 

f 

EN H ET = 8 



027 C 

85 

D 4 


85 

D 4 


STA 

FA 





027 E 

20 

BA 

F0 

20 

D 5 

F0 

JSR 

LISTN 

/ 

UPPRÄTTA 


0281 









/ 

FÖRBINDELSE 

0281 

A9 

0F 


A9 

0F 


LDA 

#15 

/ 

SEKUNDÄRADR=15 

0283 

09 

60 


09 

60 


0RA 

#$60 





0285 

20 

28 

Fl 

20 

43 

Fl 

JSR 

SECND 

f 

SKICKA 

SEKUNDÄRADR. 

0288 

A9 

44 


A9 

44 


LDA 

# 1 D 





028 A 

20 

6 F 

Fl 

20 

9 E 

Fl 

JSR 

CI0UT 

f 

SKICKA 

EN 

BYTE 

028 D 

A9 

31 


A9 

31 


LDA 

# ' 1 





028 F 

20 

6 F 

Fl 

20 

9 E 

Fl 

JSR 

CIOUT 

/ 

SKICKA 

EN 

BYTE 

0292 

A9 

3 D 


A9 

3 D 


LDA 

# ' = 





0294 

20 

6 F 

Fl 

20 

9 E 

Fl 

JSR 

CIOUT 

f 

SKICKA 

EN 

BYTE 

0297 

A9 

30 


A9 

30 


LDA 

# '0 





0299 

20 

6 F 

Fl 

20 

9 E 

Fl 

JSR 

CIOUT 

f 

SKICKA 

EN 

BYTE 

029 C 

20 

83 

Fl 

20 

B9 

Fl 

JSR 

UNLSN 

/ 

AVBRYT 

FÖRBINDELSE 

029 F 

60 



60 



RTS 


/ 

RETURN 

TO 

BASIC --> 


EXEMPEL_NR_2 

Läs errormeddeLand et från skivminnet och skriv den på skärmen 
Man måste då utnyttja en ny rutin i BASICen, en rutin som 
skriver ut A-registret på skärmen. Den kallas 'PRT' och har i 
BASIC 2 adressen $E3D8, i BASIC 4 $E202. 


ADR 

BASIC 

2 

BASIC 

4 

LABEL 

MNEMONICS 

KOMMENTAR 

027 A 

A9 

08 


A9 

08 



LDA 

#8 

/ 

EN H E T = 8 

027 C 

85 

D 4 


85 

D 4 



STA 

FA 



027 E 

20 

B6 

FO 

20 

D 2 

FO 


JSR 

TALK 

/ 

UPPRÄTTA 

0281 










/ 

FÖRBINDELSE 

0281 

A9 

OF 


A9 

OF 



LDA 

#15 

/ 

SEKUNDÄRAD R = 15 

0283 

09 

60 


09 

60 



ORA 

#$60 



0285 

20 

64 

Fl 

20 

93 

Fl 


JSR 

TKSA 

/ 

SKICKA SEKUNDÄRADR. 

0288 

20 

8C 

Fl 

20 

CO 

Fl 

NÄSTA 

JSR 

ACPTR 

/ 

HÄMTA EN BYTE 

028 B 

C 9 

OD 


C 9 

OD 



CMP 

#13 

/ 

CR? 

028D 

FO 

06 


FO 

06 



BEQ 

KLAR 

/ 

JA, HELA MEDD. LÄST 

028 F 

20 

D 8 

E3 

20 

02 

E2 


JSR 

PRT 

/ 

SKRIV EN BYTE 

0292 

4C 

88 

02 

4C 

88 

02 


JMP 

NÄSTA 

/ 

NÄSTA TECKEN 

0295 

20 

7 F 

Fl 

20 

AE 

Fl 

KLAR 

JSR 

UNTLK 

/ 

AVBRYT FÖRBINDELSE 

0298 

60 



60 




RTS 


/ 

RETURN TO BASIC—> 


I artikeln beskrivs endast grundstenarna i IEEE- 
kommunikation. Rutiner som hanterar program, se kvensie 11 a- 
och relativa filer utnyttjar i sin tur de i atrikeln 
beskrivna funktionerna. Mer om detta i en kommande artikel. 


Mattias Waldau 
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Papperen på bordet! 

Nu behöver Du inte längre kämpa med Dina 
datalistor på golvet. 

Nya minibordet kan placeras på arbets¬ 
bordet och de datalistor skrivaren pro¬ 
ducerar stannar kvar på arbetsbordet. 

En hel kartong papper får plats i maga¬ 
sinet under skrivaren. 



Beställ bordet per telefon. 
Leverans sker per postpaket. 
Pris: 450:- + moms och frakt. 


MATTEUS BOKFÖRINGSBYRA AB 

Sadelmakarvägen 10, 146 00 TULLINGE. TELEFON 08-778 52 29 
























PET COMMODORE HJÄLPER TANDLÄKARNA 


* 

n 




<t 


TAND PET är ett nytt program som utvecklats av DATA EKONOMI 
KONSULT AB. Programmet är direkt anpassat för 
t andläkare .A11 administrera verksamheten tar en otrolig 
tid" är ett vanligt uttalande bland sveriges tandläkare. 

Detta har programmakarna tagit fasta på. 

Nedan följer en kortfattad rutinbeskrivning av programmet: 

1. TIDBOK. Innefattar bokning med avbokning, 

t i dboksplanering samt möjligheter att titta på 
arbetsdagen 

2. PATIENT-BEHANDLING. Omfattning, planering, 
åtgärdskoder (för t and vårdsräkning), framställning av 
kostnadsförslag, utskrift av tandvårsräkning samt 
inmatning av gjorda delbetalningar. 

3. PATIENT-REGISTRERING. Nyregistrering, ändring samt 
utskrift. 

4. PRISSÄTTNING. Uppdatering och ändring av tandläkarens 
samt tandteknikers priser. 

5. TIDKALENDER. Reservering av timmar för akutfall samt 
planera för semesterdagar. 

6. UPPGIFTER TILL SAMLINGSREGISTER. 

7. AUTOMATISK KALLELSERUT IN. Skriver ut meddelande till 
patienter 

8. INRAPPORTERING AV TEKNIKER FAKTUROR. Registrering av 
inkomna teknikerfa kturor för senare debitering av 
respektive patient. 

9. INTÄKTSRAPPORTERING. etc. etc. 

Priset för basversionen, dvs system för en 
tandläkare med två stolar, är kronor 45.000:- exkl. 
moms. En utbyggd version, för två tandläkare med fyra 
stolar, kostar kronor 68.000:- exkl. moms. 

I priset ingår följande: 

-Maskinutrustningen 

-En dags utbildning i Stockholm eller Göteborg 
-Programpaketet 

-1 års garanti på maskin och program 
-Användarhandbok 

Givetvis kan utrustningen användas för andra ändamål, 
såsom bokföring, fakturering, matematiska beräkningar 
etc. etc 

\ 

TAND PET hårdtestas för närvarande i samarbete med 
Praktikertjänst AB och tand läkarmottagningar. 

För närmare information kontakta DATA EKONOMI KONSULT 
AB, Södra vägen 81, 412 54 Göteborg, Tel. 031-18 81 10 
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EIIS-E^ShiDSEråksrutiner.. 

Jag tänkte här visa hur man kan använda PETens egna 
mask inspråksruti ner för addition samt subtraktion. 

Först några förklaringar. 

$ = dol lartecken,vilket betyder att tecknen efter är 
skrivna i hexadecimal representation. 

ACCl och 2 = F ly11alsa c kumula t orer 

ACCl=ligger mellan $5E-$63 

ACC2=ligger mellan $66-$6B 

ADDITION. 

Principen är följande : ACCl=ACCl+ACC2 

1. Placera ett av talen i ACCl. 

2. Sen måste man se till att bit 7 i adress $5f (gäller 
för 3000 och 8000 PET ) inte är satt om talet är 
positivt. 

3. Placera sen det andra talet i ACC2.Där gäller samma 
sak med bit 7 men i adress $67. 

4. Anropa sen subrutinen AD DI TION,ad ress SD776 för 
3000-PETar,$C9A0 för 8000-PETar. 

5. Summan återfinns sedan i ACCl. 


SUBTRAKTION. 

Princip : ACCl=ACC2-ACCl 

1. Placera subtrahenden i ACC2. 

2. Placera sen minuenden i ACCl. 

3. Se punkt 2 ovan. 

4. Anropa sen subrutinen SUBTRAKTI0N,adress $D736 för 
3000-PETar,$C989 för 8000-PETar. 

5. Skillnaden finns sen att hämta i ACCl. 

Om intresse finns för den här typen av artiklar så 
återkommer jag i följande nummer av PETNYHETERNA med 
mera rutiner som kan intressera den som vill programera 
i maskinspråk. 


J0E C00L 







SmådatgrLeverantörerna_samarbetar 
för att bibehålla en seriös marknad 


Under de senaste åren har smådatormarknaden haft en 
explosionsartad utveckling. Smådatorn kommer under 
första hälften av 1980-talet att revolutionera 
informationsbehandlingen i våra företag. Den 
teknologiska utvecklingen har nu medfört att 
datorkapaciteten blivit mycket billig, mycket Liten och 
framförallt väldigt lättillgänglig. 

De flesta smådatorleverantörer är medlemmar av LKD, 

Leverantörföreningen Kontors- och Datautrustning. LKD är 
den centrala branschorganisationen i Sverige. 

Föreningen, som bildades 1937, representerar såväl 
tillverkare som importörer av kontors- och 
datautrustning för administration, konstruktioner, 
produktion och distribution. 

För att bibehålla en seriös marknad arbetar LKD:s 
smådator leverantörer gemensamt med olika projekt som ska 
vara till nytta både för användare, återförsäljare och 
leverantörer, utbildning av användare och säljare är en 
viktig del för att skapa insikt i smådatorsystemets 
möjligheter och begränsningar. 

Smådatorgruppen arbetar också med att ta fram normer för 
hur programvaran bör utformas och dokumenteras. Idag är 
det svårt för både användare och leverantörer att bedöma 
kvalitet och omfattning på den programvara som bjuds ut 
från både kända och okända leverantörer och konsulter. 

Ett annat viktigt projekt är framtagning av 
rekommenderade leverans- och g aranti v i11 k or som ska 
kunna användas i samband med försäljning av 
smådator system. 

Den totala målsättningen för gruppens arbete är att 
skapa en handel med smådatorer och programvara där 
kunden kan känna sig säker på att han har tillgång till 
seriösa leverantörer och en hög kvalitet på hård- och 
mjukvara. 




LKD 


LEVERANTORFORENINGEN KONTORS- OCH DATAUTRUSTNING 










VISNING AV PET COMMODORE SUCCÉ' I SKOLAN 


Datatronic fick en inbjudan från S:t Görans 
gymnasium i Stockholm för att visa vad en PET går 
för. En av våra programmerare (Fredrik Lindblad) 
ansåg att PET OZZ och ORD kunde vara lämpliga 
program att visa och konstruerade några 
snabbförslag för registrering och administrativa 
rutinförenklingar. 

Elever och lärare visade sig skeptiska till en 
början, vilket visade sig bero på att tidigare 
kontakter med mi krodat orerleveran törer varit mer 
eller mindre misslyckde. 

Demonstrationen inleddes med en presentation av 
PET OZZ och ett l ärarvi k ari a treg i ster hade 
upprättats med, namn, adress, telefonnr, 
ämneskombinationer, disponibla arbetstider etc. 
Därefter gjordes en listning av vikarier som 
kunde tänkas undervisa i svenska mellan 
9.00-12.00 och en lista på namn med telefonnummer 
producerades av printern. Sökmöjligheterna var 
obegränsade. T.o.m han som var bra på fotboll 
fanns med. Sökordet var fotboll. 

Visningen fortsatte med PET ORD, där ett 
skri v ningsförslag presenterades. Borta var nu 
alla gamla blå handskrivna stenciler som det inte 
gick att skriva på och som luktade sprit så att 
föräldrarna undrade vad eleverna egenligen höll 
på med i skolan. I anslutning till PET ORD 
visades hur lätt det var att ändra på en 
skrivning från år till år. Kostnader jämfördes. 
Den enda kostnaden var papper och färgband. 

Färdiga bestä l Iningsbrev för läromedel, 
ettiketter, elev- och lärarlistor presenterades 

Register över skri vningsresu 11 at för varje elev 
med färdiga formler för betygsättning kan vara 
något att eftersträva. Där finns även möjlighet 
att gradera elevernas uttrycksförmåga, vilja samt 
allmänna intryck. Det enda som krävs är en 
central dator på skolan samt att respektive 
lärare har sina egna disketter. 


Därefter diskuterades vilka möjligheter PET har 
för schemaläggningen, vilket är ett inom skolan 
mödosamt arbete att lägga upp. Även på den 
fronten är PET väl framme nämligen med PET PLAN. 
Då kan samtliga lärare inlämna önskemål om 
arbetstider samtidigt som en optimering av 
skolans lokaler, matraster, ämneskombinationer 
samt lärartil Igång- och efterfrågan kan 
åstadkommas. 





fp 



y 


20 






Datorns framtida roll inom undervisningen 
diskuterades och kopplingar till olika ämnen 
gjordes. Det framkom att i princip samtliga ämnen 
i framtiden kan tänkas använda sig av datorer i 
sin undervisning. Språkundervisningen, fysiken, 
matematiken, kemin, administrativa ämnen såsom 
företagsekonomi och kontorskunskap har sin givna 
plats. 

Inom bl.a. kontorskunskapen kommer skrivmaskinen 
att vara ett minne blott. Ordbehandlingens 
fördelar överväger på samtliga punkter utom 
st orleksmässigt. En PET kan idag ha TIO! 
terminaler anslutna till en floppy. 

PET kan idag via telefon anslutas till 
universitetens centrala datorer samtidigt som de 
arbetar självständigt på respektive skola. 
Datatronic har bl.a. bilder som sänds via satelit 
till en central dator och vidare per telefon till 
Datatronic. Allt detta gör man idag. 

Det finns ingen anledning att vänta på 
kommunernas byråkratiska process som i realiteten 
innebär att när utredningarna är klara så är den 
tänkta planmässiga struturen för införandet så 
föråldrad att undervisningen inte "hänger med" 
samhällets övriga utveckling. 


* 




TELETEX 
VAD ÄR DET ? 

Teletex är ett ord som på sistone börjat märkas alltmer 
i tidningar och dagligt tal. Vad innehåller då begreppet 
teletex för delar? 

Är det ett unikt begrepp för någon speciell tillämpning 
eller är det ett ord som även kan användas generellt för 
att beskriva ett visst tillämpningsområde. 

ORD OCH TEXTBEHANDLARE 

Teletex är i korthet en ord/textbehandlare med 
kommunikationsmöjlighet som distribueras av televerket 
med start i november 1981. 

Med hjälp av en teletex kan dels texter redigeras och 
sparas m.m. Samma funktioner som vilken i handeln i 
övrigt förekommande datorbaserad ordbehandlings¬ 
utrustning. 


21 





SKILLNADER MELLAN ORD OCH TEXTBEHANDLARE KONTRA TELETEX 


Skillnaden mot ordbehandlingsutrustning är att teletex 
ansluts till ett nät som möjliggör överföringar. Denna 
anslutning gör att det på ett standardiserat sätt. Det 
går att överföra skriven text till alla anslutna 
teletex-apparater samt även alla telex-apparater. 
överföringen mellan olika teletex-apparater kommer att 
kunna göras se kundsnabbt, det elektroniska brevet får då 
sitt slutgiltiga intåg. 

överföring mellan olika teletex-apparater kommer att 
kunna göras inte bara i Sverige utan i hela västvärlden 
genom en överenskommelse med det internationell 
samarbetsorganet CCITT. 

VILKEN UTRUSTNING ? 

Den stora frågan man då genast ställer sig när begreppet 
teletex har blivit förklarat är om utrustningen behöver 
vara av en speciell sort för att kunna klara 
överföringen. Svaret på den frågan är nej. 

Som teletex kan vilken som helst i marknaden 
datorbaserad ordbehandlingsutrustning användas om 
anslutningsmöjligheter till teletex-nätet finns, 
överföringen mellan olika teletex-apparater är alltså 
standardiserad av televerket medan teletex-apparaterna 
inte underordnas någon märkesst andard. 


PET C0MM0D0RE SOM TELETEX 

Televerket kommer att behöva en intrimningsperi od på ett 
och ett halvt år innan utrustning av annat fabrikat kan 
anslutas. Televerket kommer under den perioden att göra 
systemet så att olika ordbehandlingsutrustningar kan 
anslutas. 

Datatronic ab kommer att fortlöpande hålla sig 
underrättad om Televerkets anpassningar och när den 
delen är uppfylld skall PET Commodore bli möjlig att 
använda som Teletex. 

PET Commodore kommer att bli mycket lämplig som en 
Teletex-apparat genom sitt avancerade ordbehandlings¬ 
program och med jämförbara utrustningar mycket låga 
pris. 

Teletex kan alltså ses som ett generellt begrepp på de i 
marknaden befintliga ordbehandlingsutrustningarna med 
kommunikationsmöjligheter t.ex. PET Commodore. 






S U P E RC H I P-ROM 


PLUGG IN ROM FÖR PET 

- Automatisk repeat på alla tangenter 1 

- Variabel cursor (markör) blink 

- Scroll (rulla) skärmen upp eller ned 

- Scroll del av skärmen 

- Sudda skärmen upp till cursorns position 

- Sudda rad eller del av rad 

- Sätta in rader- i text eller program 

- Singel key basic, enkelt inslag av 26 av 
de längsta basic-kommandona 

- Retrace visar de 10 senast utförda 
pro gramrad e ma 

- Shrink tar bort alla mellanslag och REM 
satser ur ett program 

- Reverse video (omvänd) i valfri del 
av skärmen 

- Med flera funktioner 


CBM DATOR 



pris 

- SUPERCHIP monteras enkelt 
i ledig ROM sockel UD3> 
kan användas tillsammans 
med T00LKIT och PICCHIP. 


• * * * PIC - CHI P * * * * 

PIC-CHIP ger dej 40 nya BASIC kommando för grafisk presentation, inget 
PEEK eller POKE utan enkla kommando. 


EXEMPEL 


10 FOR X=0 TO 39:Y=Xt1.5 


10 FOR X=0 TO 39sY=Xt1.5:i 


: IWFtNEXT 

20 YO=25:F0R X=0 TO 79 STEP 3 
:Y=SIN(X/12 )X£241 JWY :NEXT 

RUN 


WFjNEXT 

20 FOR X=0 TO 79:Y=SIU(x/l2) 
#24:IWX:NEXT 

30 FOR K= 0 TO 79 :Y=SIN(x/l 2 ) 
^X/2 : IWY sNEXT 



S5D«- 

- PIC-CHIP monteras i 
ROM sockel UD4. 



-Word Processor.295:- 

- Mailing List.295:- 

- Katalog register.295:- 

- MM. 


Ring eller skriv för information. 


- MACROTRONICS fjärrskrifts inter¬ 
face med programvara. 


OflTfl PRIfIT 


Box 9019 


291 09 Kristianstad 


Tel 044-229282, 229484 



























fikSÖKNING PS MIKRODATORER 


Denna artikel kommer att handla om olika sätt för att 
hitta fel i mi kropro cessorbaserade system.En mikrodator 
har som primära kretsar en mikroprocessor,minnen och i/o 
(in-ut kretsar) i si g.När dessa arbetar med varandra så 
har dom ett språk(binär). Dessa ges i form av 
data,adresser och kontroll signaler.I mellan dessa 
kretsar så ligger det buffrar som förstärker signalerna 
så dom orkar driva de kretsar som ligger framför. 

För att nu gå till det lättaste sättet att se fel så är 
det faktiskt så enkelt att datorn talar själv om, om det 
är fel och vad det är för fel. Förutsättningarna här är 
att det får inte vara fel på databussen, adressbussen 
eller de i/o kretsar som visuellt talar om för 
operatören den data som kan inhämtas. Denna metod är som 
ni ser ganska begränsad. 

Nästa steg man kan arbeta i är med hjälp av 
os c i11oskop,här har man möjlighet till en antal olika 
felsökningsmetodiker, bl.a. mäta spänningsnivåerna i 
datorn och se på tidproblem som eventuellt finns,även 
att här checka klockfrekvensen är viktigt. 

Om man går ner på lite mer sofistikerad felsökning så 
har vi 3 metoder som vi kan använda oss utav. 

1) Logikanalys: Det vill säga att man kopplar på 16 st 
ledningar på adressdelen av processorn och 8 desamma 
till dat apinnarna. Dessa ledningar kopplas nu till 
logikanalysatorn som är ett instrument för memorering av 
de adresser och data i form av ettor och nollor som tas 
emot och skickas i väg. Vi kan alltså redan från första 

st art adressen (till re set v ektorn) vara med och se vart 
han går. Man assemblerar en misstänkt del som skiljer 
sig från ett just referenskort och ser då vilken krets 
han sist skulle arbetat med. 

2) Signaturanalys: Denna är den lättaste metoden att 
arbeta med men den svåraste att ta fram. Den går helt 
enkelt ut på att varje ben på en ic-krets får en unik 
och specifik signatur. Detta genom att låta den data som 
kommer från pinnen i kombination med klockfrekvensen 
under en tidslucka som består av startaddress (tex 0000) 
till en stoppaddress (texffff). Genom att mäta från 
processorn och utåt tills man stöter på en felaktig 
analys så kan man innesluta en krets. 

3) Emulation: Denna metod är den dyraste och bästa,men 
även väldigt svår.Här kan man simulera en mikroprocessor 
genom att ta bort denna och stoppa in en sockel som är 
förbunden med emulatorn. Nu kan jag härifrån ge samtliga 
koder som processorn har samt att adressera minnen och 
i/o kretsar. Detta system användes också till 
konstruktion samt att detektera fel i operativsystem. 
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NY VERSION AV EXPORTST AB ENS HUSKALKYL 


En ny version av vårt husk aLkylpro gram är nu färdig för 
distribution. Programmet är Lika Lättskött som tidigare 
trots alla de nya funktionerna. 

Här nedan följer programmets funktion och de viktigaste 
ändringarna: 

* Pant värde: 

Beräkning av bottenlån och statligt lån sker automatiskt för 
nya hus om pantvärde anges. Pantvärdet skall vara =0 på 
gamla hus. 

* Lagring: 

Hämta in tidigare sparad huskalkyl från disketten i drive 0. 
Ange namnet ( =husbe teckning). Man kan också ange bara de 
första bokstäverna följda av *, ex. hulta 2:326 kan 
förkortas hu*. 

Vid inhämtning ersätter den nya kalkylen ev i minnet 
liggande kalkyl men inkomstuppgifterna ligger kvar och man 
kan därför fortsätta beräkningarna direkt med de nya 
husuppgifterna. 

* På en skiva i 8050-floppyn får plats 200 kalkyler, i 
3040-floppyn 150. 0m en skiva blir full får man börja med en 
ny kopia av ori g i nalsk i v an . 

För att lista de kalkyler som är lagrade på en skiva kör man 
fram skivans innehållsförteckning på skrivaren. 

Disp l ay 2: 

Man kan som tidigare lagra uppgifter om max 6 lån med 
uppgift om ränta och amortering. 

* Kontantinsats 

Belopp kan läggas in om man vill, för att underlätta 
finansieringsberäkningen. 

* Tomträt tsavgä l d 

Belopp kan läggas in och har samma funktioner i 
beräkningarna som avdragsgill ränta. 

* Extra avdraget kan tas bort. Kan vara tillämpligt för 
t.ex. sommarstugor. 

Disp l ay 3: 

Följande uppgifter används av programmet: 

* 1: Inkomst brutto för en eller två inkomsttagare 

* 2: Avdragsgilla kostnader t.ex. resor eller räntekostnader 
som inte hör till huset. 

* 3: Kommunalskatt och skattekolumn 

* 4: Schablonintäkt - extra avdrag. Kan fördelas mellan 
inkomsterna enligt formeln ink 1, ink 2 eller halva på 
vardera. 

* 5: Räntekostnad beräknas och fördelas på inkomsterna eller 
kan fördelas på valfritt sätt. 

* 6: Skatt totalt beräknas av programmet per inkomsttagare. 

* 7: Amortering är given av tidigare uppgifter men kan delas 
upp på samma sätt som punkt 4. 

* 8: Driftskostnaden kan valfritt fördelas på båda 
inkomst erna. 

* 9: Disponibel inkomst ges som bruttoinkomst -avdrag 
-räntekostnad -skatt -amortering -driftskostnad (inkl 
kommunalt g aran t i be l opp) 

* 10: Disponibel inkomst per månad 

* 11: Marginalskatt beräknas på skatteavdraget i sin helhet 
för att vara rättvisande. 

Slutligen: Som tidigare har man möjlighet att variera 
enskilda värden och få en uträkning av totaleffekten 
meddetsamma. 
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100 
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REM # * 

REM * UTSKRIFT FRÄN SKNRM TILL SKRIVRRE 4 
REM T ====== SS = SSS= == SSSSSSSS === SS = Ä= = * 

REM # * 

REM * COPVRIGHT ; JfiN SEN FRGGRfiMKGNSULT 4 
REM $ $ 

R E M v #» % % % % # 4: * $ ¥ % # % *: $ $ # •¥ # # % % % % % % T % W- # * ¥ $ f ; 


BfiTfi 163,4,3, 32 , 133,212,163,8,141,64,3,141,55,3, 3 
REM f * SKR I VfiRENS HUMMER 

B fl i H J?S , 1 3 - 1 ,2 1 1 , 32 :■ 2 1 3 , 3 “t L , i o O , c. i 1 , O 2, O ( , ^41 , i 63 , L , 1 JL , L 

BfiTfi163,123,133,1,166,8,177,8,281,128,144,21,41,127,162 
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BfiTfi144,2,9,128,32,158,241,286,132,SO,208,138,163, 1 8,82 
REM SKmRMBREBD T 

BfiTfi158,241,169,8,141,65,3,24,152,101,G,133,8,163,6 

BfiTfi101,1,133,1,233,64,3,163,25,2Ö5,64.3,288,156,32.135,241,36 

REM r = fiNTfiL RFiBER SOM SKRIVS UT 


REM PROGRftMbT PLfiCERfiS HÖGST UPF 1 MINNET « 


flB=FEEK < 52 > i-FEEK < 53 > *256-135 

PRINT“H&3TRRTfi UTSKRIFT MEB SVS !! fiB 

FGRI-0TO132:RERBfiR-PGKEhD+I,RR:NEKT 

PRINT"SFöRSNBRfi fiNTfiL UTSKRIVNR RfiBER MED PGKE M fiD-+123". fiF" 
FRIHT"DKR fiR = fiNTfiL RfiBER ( 1 - 25 
RR-~riB/256 : 3R=RD--fiRs256: FGKE53, fiR PGKE52, BR 
END 

I ! 


PROGRAMMERINGSJIPS_FÖR__P_E_I 

Spooling på microdatorn PET 3000 och 8000. 
-Tro det eller e j - 


Tänk på alla de gånger Ni suttit och väntat på en 
utskrift. Hur snabb skrivare Ni än har känns det ju 
alltid långsamt att vänta. 

Tänk om Ni under denna tid hade kunnat göra något annat 
på maskinen. 

Detta är en möjlighet som finns på "större" maskiner och 
kallas 'spooling'. Spooling används ofta på de större 
maskinerna för att ta bort väntetider. Av samma 
anledning finns ofta funktionen på minidatorer i samband 
med registreringar och för att flera användare skall 
kunna dela på en och samma skrivare. 











Det är faktiskt sant att detta går att göra på PET. Den 
"intelligenta" floppyn gör det möjligt för Er. 

Själva idén är väldigt enkel. Man låter helt enkelt 
floppyn tala direkt till skrivaren utan att blanda in 
cent ra lenheten. 

Det kan vara bra med ett enkelt exempel. 

Om man listar ett program på skrivaren skriver man 
normalt. 

OPEN 4,4: CMD 4: LIST 
PR INT#4: CLOSE 4 

Låt oss nu ändra dom raderna så att listan hamnar på 
disketten istället. 

OPEN 4,8,8,"0:LISTA,S,W": CMD 4: LIST 
PRINT#4: CLOSE 4 

Nu ska vi skicka listan direkt från disketten till 
skrivaren. Då börjar vi med att ange att det är "LISTA" 
som ska skrivas ut (vi öppnar filen). 

OPEN 4,8,8,"LISTA" 

Därefter talar vi om för floppyn att den ska börja 
"tala" så fort någon tar emot. För PET-8000 skriver Ni: 

POKE 165,64+8: SYS 61695 
POKE 165,96+8: SYS 61695 

Om Ni har en 3000-PET byter Ni ut 'SYS 61695' mot 
' SYS 61668' . 

8an i den övre 'POKE'-satsen motsvarar första 8an i 
'OPEN 4,8,8,"LIST"' och 8an i den undre motsvarar den 
andra 8an. 

Nu är floppyn klar. Då ska vi få skrivaren att skriva 
det som floppyn "säger". Det gör Ni såhär: 

5 

OPEN \,4: CMD 5: POKE 176,3: POKE 174,0 

Nu kan Ni luta Er tillbaka och studera resultatet eller 
ta tillfället i akt och utmana Er PET på ett parti 
schack. Tänk bara på att Ni måste ladda in programmet Ni 
vill använda innan Ni startar utskriften, om Ni inte 
använder bandspelare. Sedan är ju floppyn (IEEE-bussen) 
upptagen med att mata skrivaren med information. 

När skrivaren har skrivit klart eller Ni vill stoppa 
utskriften skriver Ni: 

OPEN 4,8,8: CLOSE 4 

Det är för att tala om för floppyn att vi har skrivit 
färdigt och släcka lampan på floppyn (och skrivaren). 

Det är viktigt att den understrukna siffran i 'OPEN' 
(sekundäradressen) är samma som i 'OPEN 4,8,8,"LI STA" ' . 

Till sist. Lycka till med skrivandet och vi får väl se 
om funktionen dyker upp i några av standard paketen till 
PET. 

Björn Svensson/ Tina Björnstjerna - Gardt man 
ModuLföre t a gen Mini Micro AB 



KEJSARENS_DILEMMA 

Förra månaden berättade vi helt sannfärdigt om hur 
det gick till när Kaj-Yen uppfann schackspelet. Och om 
vad som hände sedan, ni vet det där med ett riskorn på 
första rutan, två på den andra o.s.v. 

Vi ville också ha förslag på ett program som visade 
hur mycket ris kejsaren skulle fått lämna till Kaj-Yen. 
Programmet skulle, ruta för ruta, visa hur många riskorn 
som läggs där och vikten på detta ris. Avslutningsvis: 
vad var den sammanlagda vikten? 

Som väntat har förslagen rasat in från våra alerta 
medlemmar. 

SLUTSTRID MELLAN TV8 

Alla program granskades i flera avseenden: 
b ilds kärms l ayout, räknenoggrannhet, presentation och 
programstruktur. Efter långt om länge stod slutstriden 
mellan Rolf Holmgren i Sigtuna och Örjan Lennander i 
Väne rsborg . 

Örjan hade skrivit ett mycket kompakt program som i 
bildskärmen visade schackbrädet med innehållet ruta för 
ruta. 

Rolf hade angripit problemet lite annorlunda, och 
presenterade innehållet med text uppdelat på åtta 
b ilds kärmss i dor . In i det sista vägde det jämnt. Det 
som till slut gjorde att Rolf tog hem spelet var den 
föredömliga strukturen. 

SCROLLING 

Visserligen kan man fila på programmet ytterligare 
(flera rader med 1 PRI NT 1 i stället för att utnyttja 
PET's markörkontroll), men av programlistan ser man 
verkligen vad programmet utför. I ärlighetens namn måste 
dock anmärkas, att juryn rös då bilden rullade 
(scrolling: nya rader skrivs längst ned, översta raden 
försvinner och alla rader flyttas upp ett steg), och man 
enades om att lägga till ett ' CLR/HOME 1 i raderna 1100, 
4130 och 4420. 

Till slut ber vi att få gratulera Rolf till det fina 
programmet och ger Örjan ett hedersomnämnande. Fanfar 
och mottag folkets jubel. 







30 






£ 


+ 

Cl 

'w' 



O 

H- 




£ 


5 


HMHHWHHHNHHHtflHHHf 

££egS£££g£££Äee£i 


12883881588 ! 


;2g 

■ w 10 


LU 

ö 



I 


ITi 

© 

et 

LU 

o 

3? 


gg 

I—t 

Lti 


E 

a) 

o 

§ 

i 

I 


1 

I 


°r 

Cl 


§ 

CM 


£®ä 


_ 

i—ii—ii—i t—i t—t LU |— i_j i—i »■ 


5 ? 


u_ 

1 å 

2 Ll 

ii Gitt 


I 



•"■■ « O t-t ■■'■• ti il II ••-•• 

Tj- . . |-_ HH '../ fr fr |_| 

‘A »-4 OJ II •-■• >“•• ✓>. ■■■> ••-•• 
•W || || || llHHH CC 
I f \ I—I /-.. + ■•-.•’ ■•_■• + 

gCiTCCSV 

llhHHHH 


gmSS£8fS8fE£Sf£E£E££££££eSfE8E£SfS&ä£e8SS&£8f£Sg3&eS s:i£ 

© © © © CD O © © in © in © © LO © © ITi © Ul © IT' © LO © © © © © © © © © © © © © © © © © © © © © © © © © © UT' © © © © 
© © © © © © © © © ©Qth cm r- co cr-! © cm cm co rt in 'a '-u r- r- co od o-i o-, © -• cm co io 'a r- © © —> cm © —• cm co ^ in »a © ^ cm © —< cm co co rf in 'fl r- 

Ti CM CO rf- U“ ‘fl [■••- Oj cr-, ©©©©©©0TH1111H11111111111 CM CM CM CM CM CM CM CM CM © © © h i i i i i i © © Q i i i i h i i i i 

hiihhiC^hhhhhihhihhiihhhhhiiCMCMWCMCMCiJ cm cm cm CM CO co co co co co co co co co co co 


31 




















£0RIH_I_PR0CESSIYRNIN6*_DEL_2 


I detta avsnitt skall vi behandla hur en enkel 
processtyrningsappli kat ion kan programmeras i PET-FORTH, 
som är en st andard-FOR TH med väsentligt utökade 
funktioner. 

I FORTH sker programmeringen genom att man utökar 
språket med nya ord. Dessa ord behandlas sedan på samma 
sätt som de förut definierade orden. Ett ord definieras 
utifrån andra ord, vilket gör att man arbetar i en sorts 
trädstruktur. Först definieras grundläggande ord, vilka 
sedan kombineras till mer kraftfulla definitioner; dessa 
kan i sin tur användas för att skapa ännu kraftfullare 
definitioner, och så vidare. Slutligen har man ett ord 
som utför eller löser hela det önskade problemet. 

En biprodukt av detta är, att man får en "bas" av 
användbara definitioner inom det område man sysslar med. 
En administrativ programmerare kan dra nytta av redan 
förut definierade ord för t.ex. kontering, rapport- 
generering eller f l exsk i v k ontro11, eftersom FORTH är ett 
modulärt språk. På detta sätt sparas avsevärt med tid, 
vilket ju alla vet är samma sak som pengar. 

Här är ett enkelt exempel på en definition: 

: ÄT GAPA FÖR-IN BIT-AV TUGGA SVÄLJ ; 

Här definieras ordet ÄT . Det innehåller i tur och 
ordning orden GAPA , FÖR-IN , BIT-AV , TUGGA , och 
SVÄLJ . Definitionen inleds med ett kolon och avslutas 
med ett semikolon. När ÄT sedan används, kommer de 
ingående orden att anropas ett efter ett. ÄT kan 
naturligtvis ingå i andra definitioner. 

Definitioner kan antingen matas in direkt från 
tangentbordet, vilket innebär att de kompileras 
omedelbart (interaktiv kompilering!) eller lagras på 
flexskiva för senare laddning. 

Nu till FORTH-programmet. Vi skall utveckla ett program 
för kontroll av två pumpar i en pumpgrop. Pumparna har 
samma pumpkapacitet, och skall belastas lika mycket av 
programmet, så att maximal livslängd uppnås. I 
pumpgropen finns fyra sensorer, som talar om när 
vätskenivån överskrider vissa värden. 
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Här följer den logiska definitionen av programmet: 

1) Om sensor 1 ger värdet 0 är tanken tom, och båda 
pumparna skall slås av. 

2) Om sensor 2 ger värdet 1 skall en pump startas. 

Den pump som inte startades förra gången slås på. 

3) Om sensor 3 ger värdet 1 blir tanken snart full. 

Båda pumparna skall slås till. 

4) Om sensor 4 ger värdet 1 rinner tanken snart över, 
och ett alarm skall ges. 

Genom att den pumparna slås till växelvis, då vätskan 
överstiger sensor 2, fördelas slitaget på pumparna jämnt 
mellan dem, och deras livslängd ökar. 

Vi skall först beskriva hur problemet simuleras vid 
datorn, och därefter hur simuleringsprogrammet 
modifieras för att ge det färdiga processprogrammet. Vi 
skall definiera programmet i top-down-teknik, vilket 
innebär att man börjar koda programmet ifrån den översta 
nivån, och successivt bryter ned problemet i allt mindre 
bitar, tills den färdiga lösningen erhållits. Detta är 
det normala i FORTH, och medför en hel rad fördelar. 

Vi börjar med huvudordet, PUMPGROP . Detta ord skall 
starta och kontrollera hela simuleringen. Det första 
som måste göras då simuleringen startas, är att ge 
utgångsvärden åt vissa variabler. Vi överlämnar detta 
åt ordet INIT . 

Vi bestämmer oss för att programmet skall utföras i en 
oändlig loop, vilken endast skall kunna brytas av 
STOP-tangenten. Vi använder oss av en struktur i FORTH 
som kallas BEGIN - UNTIL . Denna används på följande 
sätt: 

BEGIN xxx yyy UNTIL ... 

Detta kommer att medföra att orden mellan BEGIN och 
UNTIL kommer att utföras om och om igen, ända tills 
villkoret yyy är sant. Därefter fortsätter programmet 
efter UNTIL . Vårt huvudord ser nu ut så här: 

: PUMPGROP INIT BEGIN ... 7TERMINAL UNTIL ; 

Ordet 7TERMINAL förser UNTIL med ett värde som är 1 
(sant) om STOP-tangenten var nedtryckt, och 0 (falskt) 
annars. 

Vi behöver ett ord som simulerar inflödet till tanken. 
Detta kallar vi INFLÖDE , och kommer när det anropas 
att öka tankens vätskenivå eller låta den vara 
oförändrad. 
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Därefter måste vi ta ställning till vad som skall göras 
(pump på eller av, alarm etc). Detta överlämnar vi åt 
STGÄRDER . 

Eftersom detta är en simulering måste vi också visa 
vilka pumpar som är på eller av, samt tankens 
vätskenivå. Om ett l arm t i11stånd råder, skall detta 
visas. Vi låter ordet VISA utföra detta. 

Slutligen behöver vi ett ord som simulerar avflödet från 
tanken, vilket ju är en funktion av om pumparna är på 
eller icke. Detta låter vi AVFLÖDE utföra. 

Vi kan nu definiera det kompletta huvudordet: 

: PUMPGROP 

INIT BEGIN INFLÖDE STGÄRDER VISA AVFLÖDE 
7TERMINAL UN TIL ; 

Av detta kan vi också se att definitioner skrivs i fritt 
format, samt att de kan sträcka sig över mer än en rad. 

Innan vi går vidare måste vi emellertid tala lite om 
F0RTH:s hantering av tal och aritmetik. 

All aritmetik i FORTH opererar på en stack. En stack 
fungerar ungefär som en hög tallrikar. Den tallrik som 
sist lades på högen, är den första som tas bort. När 
ett tal hittas i FORTH, läggs det på stacken. Följande 
uttryck 

10 8 - 

lägger först 10 på stacken, därefter 8 (som då ligger 
överst, med 10 under sig). Slutligen hittas operatorn 
- , som subtraherar det översta st a c ke l ementet (8) från 
det näst översta (10). Kvar lämnas endast resultatet 
(2). Detta kallas postfix notation, och har många 
fördelar. Inga parenteser behövs i aritmetiska uttryck, 
och överföring av tal mellan olika FORTH-ord sker på ett 
ytterst enkelt sätt: alla ord plockar helt enkelt sina 
argument från stacken, och lämnar kvar sina resultat där 
(jämför - här ovan). Detta är viktigt att förstå när 
vi nu går vidare och bryter ned problemets beståndsdelar 
ytterligare. 


£I£INIIIÖN_Ay_INII 

INIT , som skall initiera lämpliga variabler, måste slå 
av båda pumparna, sätta l armt i11ståndet till 0 (falskt), 
och nollställa vätskenivån. För att kunna definiera 
INIT måste vi bestämma hur detta skall representeras i 
datorns minne. 

Vi använder två FORTH-variabler för att representera 
pumparnas tillstånd. Dessa kallar vi PUMPI och 
PUMP2 . När respektive variabel är sann (1) är pumpen 
på; om den är falsk (0) är pumpen frånslagen. 







En variabel definieras på följande sätt: 


23 VARIABLE TAL 

Detta definierar variabeln TAL , och sätter dess 
startvärde till 23. När vi sedan använder TAL , kommer 
adressen till dess värde att läggas på stacken. Vi kan 
definiera PUMPI och PUMP2 : 

0 VARIABLE PUMPI 0 VARIABLE PUMP2 

För att slå på en pump skriver vi på detta sätt: 

1 PUMPI ! 

Följande händer när detta utförs: talet 1 hittas, och 
placeras på stacken. Därefter hittas PUMPI , vilket 
resulterar i att adressen till PUMPI :s värde läggs på 
stacken. Slutligen anropas ordet ! , vilket är ett ord 
som tar två tal från stacken, och placerar det näst 
översta talet på stacken i den adress som anges av 
stackens översta element. Resultatet blir att PUMPI 
får värdet 1. Pump 2 slås till eller från på samma 
sätt. 

En stunds eftertanke säger oss att detta förmodligen 
kommer att utföras på ganska många ställen i programmet. 
Det skulle vara mer praktiskt (och läsligt) att ha ett 
ord definierat som tog ett pumpnummer från stacken som 
argument, på detta vis: 

1 PUMP-P8 

Här följer definitionerna för två ord, PUMP-P8 coh 
PUMP-AV , som gör just detta: 

: PUMP-P8 1 = IF 1 PUMPI ! 

ELSE 1 PUMP2 ! THEN ; 

: PUMP-AV 1 = IF 0 PUMPI ! 

ELSE 0 PUMP2 ! THEN ; 

Kortfattat fungerar de på följande sätt: det översta 
talet på stacken jämförs med 1. Om denna jämförelse var 
sann, utförs orden mellan IF och ELSE , annars mellan 
ELSE och THEN . I PUMP-P8 kommer därför anropet 

1 PUMP-P8 att medföra att frasen 1 PUMPI ! utförs, 
vilket ju faktiskt slår på pump 1. Om argumentet var 
något annat än 1, kommer pump 2 att slås på. Frasen 

2 PUMP-P8 slår alltså till pump 2. 

Vi väljer att representera även larmt i l Lståndet och 
vätskenivån som variabler, kallade LARM respektive 
NIV8 . 

Vi behöver också en variabel som talar om vilken pump 
som står i tur att slås till, så vätskenivån överstiger 
sensor 2. Denna kallar vi NUVARANDE . 




Vi kan nu definiera INIT : 


: INIT 1 PUMP-AV 2 PUMP-AV 1 NUVARANDE ! 
0 LARM ! 0 NIVS ! ; 


2I£INIII0n_av_inflöde 

INFLÖDE är ordet som justerar NIV8 , om vätska rinner 
in i tanken. Vi väljer att styra detta genom att trycka 
ner SHIFT-tangenten på PET när vi vill fylla på tanken. 
Följande fras kan användas för att hämta in 
SHIFT-tangentens tillstånd: 

152 ca 

Detta motsvarar PEEKC152) i BASIC. Först läggs 152 på 
stacken. Därefter hämtar C3 innehållet i den av 
stackens översta element adresserade minnesposi t ionen 
(152) och ersätter stackens översta element med detta 
tal. Resultatet blir att 1 (sant) läggs på stacken om 
SHIFT var nedtryckt, 0 (falskt) annars. 

INFLÖDE kan nu definieras: 

: INFLÖDE 152 C3 IF 25 NIV8 +! THEN ; 

Detta kommer att utföra frasen 25 NIV8 +! endast om 
SHIFT tryckts ned. Ordet +! är ett FORTH-ord som tar 
det näst översta st a c ke l ementet och adderar det till den 
variabel som adresseras av stackens översta element. 
Resultatet blir att NIVS ökas med 25. 


DEFINITION AV 8TGÄRDER 


8TGÄRDER är den centrala rutinen i programmet. Det är 
den som tar initiativet till pumpstart, pumpstopp, och 
larm. Detta sker beroende på sensorernas lägen, varför 
vi måste ta ställning till hur de skall simuleras i 
datorn. Här följer deras definitioner: 


SENSORI NIV8 a 100 > ; 
SENS0R2 NIV8 3 7000 > ; 
SENS0R3 NIV8 3 8200 > ; 
SENS0R4 NIV8 3 8500 > ; 


Frasen NIV8 3 fungerar på följande sätt: NIV8 

lägger adressen till värdet på stacken. Ordet 3 
ersätter det översta st a c ke l ementet med innehållet i den 
16 bitars minnesposi t ion den adresserar. Resultatet 
blir att NIV8 :s värde hämtas till stacken. 


Därefter läggs ett tal på stacken, som motsvarar det 
värde då sensorn skall slå till. Ordet > jämför 
därefter de två översta elementen på stacken och 
ersätter dem med resultatet av jämförelsen (1 eller 0). 
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Effekten av anropet SENS0R3 , till exempel, blir att 
ett logiskt värde motsvarande sensorns läge Läggs på 
stacken; 1 om NIV8 är större än 8200, 0 annars. 

Vi kodar 8TGÄRDER : 

: 8TGÄRDER 

TESTS SENSORA << 1 LARM ! >> 

SENS0R3 << 1 PUMP-P8 2 PUMP-PS 
0 LARM ! >> 

SENS0R2 << NUVARANDE 3 PUMP-P8 >> 
SENS0R1 0= << PUMPI 3 PUMP2 a OR 

IF 1 PUMP-AV 2 PUMP-AV 
VÄXLA-PUMP THEN » 

ENDTESTS ; 

Vi använder här en struktur som kallas 
TESTS -strukturen. Resultatet kommer att blir att det 
alternativ mellan << och >> utförs, om dess 
respektive villkor ( SENSORA osv.) är sant. Detta 
gäller alla sensorer utom SENS0R1 , vars alternativ 
utförs om den inte är sann (genom ordet 0= ). Låt oss 
beröra dem kort. 

SENSORA :s alternativ innebär att LARM sätts till 1, 
eftersom tanken rinner över. Därefter fortsätter 
programmet efter ENDTESTS . 

SENSOR3 :s alternativ slår på båda pumparna, eftersom 
vätskenovån har stigit betänkligt nära en farlig gräns. 
Larmt il l ståndet slås dessutom av, om nivån skulle vara 
sjunkande ifrån SENSORA . Programmet fortsätter efter 
ENDTESTS . 


SENS0R2 :s alternativ slår på den pump som står i tur, 
och vars nummer finns i variabeln NUVARANDE . 
Programmet fortsätter efter ENDTESTS . 


SENS0R1 :s alternativ kommer att utföras om tanken är 
tom. Om någon av pumparna är tillslagna, slås de av, 
och nästa pump i tur för tillslag väljs. 

Ordet VÄXLA-PUMP definieras på följande sätt: 


: VÄXLA-PUMP 3 NUVARANDE S> - NUVARANDE ! ; 


Rutinen 8TGÄRDER följer de regler vi ställde upp i 
början mycket nära, och är lättförståelig tack vare 
valet av ordnamn och funktionsnamn. BAS I C-alternat i v et 
skulle ha varit en tilltrasslad soppa av PEEK- och 
POKE-satser. I FORTH kan vi i stället koncentrera oss 
på processen. 
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DEfINITION AV VISA 


VISA skall skriva ut simuleringens tillstånd. Inga 
ytterligare ord behövs för dess definition, utan vi kan 
koda den di rekt: 


: VISA HOME 






." Vätskenivå: 

II 

NIVS ? 5 SPACES 

CR 

." Pump 

1 " 





PUMPI a 

IF ." 

PS" 

ELSE ." av" 

THEN 

CR 

." Pump 

2 " 





PUMP2 a 

IF ." 

PS" 

ELSE ." av" 

THEN 

CR 

LARM 3 

IF ." 

Det 

rinner snart 

över! 

II 


ELSE 

22 

SPACES THEN 

CR ; 


Ordet ." skriver ut 

texten 

fram 

till nästa 




citationstecken på bildskärmen. Frasen NIVS ? skriver 
ut innehållet i NIVS , och 5 SPACES skriver ut 5 
blanksteg. Därefter utför CR en radframmatning. 

Resten av definitionen bör vara förståelig utifrån det 
vi tidigare förklarat. 


DEFINIII0N_AV_AV FLÖDE 

AV FLÖDE skall minska den simulerade vätskenivån med ett 
tal, som är proport ionerligt mot antalet pumpar i gång: 

: AVFLÖDE PUMPI a IF -10 NIVS +! THEN 
PUMP2 a IF -10 NIVS +! THEN 

Här har vi antagit att varje pumps kapacitet är 10 
vätskeenheter per varv i simuler ingsloopen. Notera 
likheten med INFLÖDE . 


SIMULERINGSPROGRAMMET 


Så där ja! Hoppas ni höll ut. Nu har vi definierat 
allting som behövs för simuler ingsprogra mm et. Vi 
redigerar in definitionerna i s.k. skärmar, som är 
F0RTH:s grundläggande textenhet. Detta görs med hjälp 
av F0RTH:s EDITOR , som alltid finns tillgänglig. 
Listning 1 visar hur programmet ser ut. 


EB0CESSPR0GRAMMET 

Låt oss nu se vad som måste ändras för att förvandla 
simuleringsprogrammet till ett färdigt 
processkontrollprogram. Först lite om hårdvarubiten. 

Inget speciellt interface behöver konstrueras, eftersom 
PET har en in- och utport tillgänglig för sådana här 
ändamål, som dessutom är progra mm erbar. Den kan 
tillhandahålla 8 in/utsigna l er plus ett par 
handska kningslinjer. Vi behöver fyra signaler in 
(sensorerna), och tre ut (Pump 1, Pump 2, och Alarm). 














Detta ryms utmärkt i PET:s userport. De nya 
sensordefinitionerna blir: 


SENSORI 

SENS0R2 

SENS0R3 

SENS0R4 


59471 03 
59471 Ca 
59471 Ca 
59471 Ca 


1 AND ; 

2 AND ; 
4 AND ; 
8 AND ; 


Det enda nya ordet här är AND , som utför ett Logisk 
bitvis OCH på de två översta st a ckeLementen. På detta 
sätt maskar vi bort oönskade bitar, och får ett Logiskt 
sant värde om sensorn är tiLLsLagen. 


VariabeLn NIV8 kan tas bort heLt och håLLet, eftersom 
den huvudsa kLi gen hade t iL L uppgift att håLLa reda på 
vätskenivån så att sensorerna kunde ge riktiga värden. 
Eftersom dessa nu testar på en riktigt vätskeyta, faLLer 
NIV 8 bor t. 

En direkt föLjd av detta är att INFLÖDE och AV FLÖDE 
heLt faLLer bort. InfLödet sköter verkLigheten om, och 
avfLödet sköts av pumparna. 

VISA måste ändras, eftersom systemet ute på fäLtet inte 
kan skriva någonting på en skärm (vi pLacerar det 
LämpLigast i ett PROM). VISA döps om t iL L UT , 
eftersom vi Låter aLL utmatning t iL L pumpinterfacen och 
Larmorganet ske här: 

: UT PUMPI a 16 * 

PUMP2 a 32 * OR 

LARM a 64 * OR 59471 C! ; 

Vi framstäLLer här en mask av PUMPI , PUMP2 , och 
LARM , och skriver den t iL L LämpLiga bitar i 
Userporten, som finns i minnesposi t ion 59471 (ordet C! 
fungerar som ! men Lagrar stackvärdet i endast 1 
by te) . 


INIT måste också initiaLisera Userporten, så att den vet 
viLka bitar som skaLL användas för in- och utmatning. 

Vi tar också bort NIV8 : 


: INIT 1 PUMP-AV 2 PUMP-AV 1 NUVARANDE ! 

0 LARM i 112 59459 C! ; 

SLutLigen kan vi modifiera PUMPGROP att snurra runt i 
en Loop i tid och evighet utan någon brytmöjLighet, 
eftersom programmet är avsett att vara i kontinuerLig 
drift: 

: PUMPGROP INIT BEGIN 8TGÄRDER UT AGAIN ; 
BEGIN - AGAIN strukturen utför detta åt oss. 





Detta är alla modifikationer som krävs. Programmet har 
blivit kortare, och dessutom enklare. Ändringarna var 
lätta att göra, och vissa programdelar behövde inte alls 
modifieras (som ÅTGÄRDER). Jämför detta med motsvarande 
ändring i exempelvis BASIC. Listning 2 visar det 
färdiga processprogrammet. 

Om detta program körs igenom en så kallad "Target 
Compiler", produceras kod som direkt kan placeras i ett 
2K:s PROM, och köras helt utan annan mjukvara. På detta 
sätt kan man utveckla små, kompakta och kraftfulla 
styrprogram för olika ändamål som kan byggas in i olika 
typer av utrustningar. 

Vi har här berört endast en del av PET-FORTH:s 
möjligheter, och således inte alls talat om "virtuellt 
minne," "vokabulär," "strukturerad m a c r oa ss emb l er i ng " 
och andra tid- och• utrymmesbesparande aspekter av FORTH. 

Dessutom har vi här tagit upp endast ett 

tillämpningsområde, processtyrning, men FORTH är lika 

användbart för administrativa tillämpningar som tekniska 

tack vare sin unika utbyggbarhet. ^ 

Jag hoppas att detta har gett er en försmak av vad FORTH 
kan åstadkomma. För den som vill veta mer om detta 
fascinerande språk, hänvisar jag till den enda svenska 
lärobok i FORTH som finns (323 sidor), som just kommit 
från Datatronics pressar. 


Peter Bengtson 
Datatronic AB 


LISTNING 1 


•cr 

# 300 




0 

< pumpgrops 

:s i mu ler i n^sprooirammet. 


1 

decimal 

-For-fch de-fini+ions For 

cjeF- -tasl 

cL 

i 9 load 

test-strukturen > 



0 var i ab le 

pump 1 

0 var i ab le 

pump2 

4 

1 variab le 

nuvarande 

0 var i ab le 

larm 

5 

0 var i ala le 

nivå 



6 

»■ 

: pump-på 

1 = i-F 

1 pumpl ! 


8 


e Ise 

1 pump2 ! 

Fhen ; 

9 

10 

: pump-av 

1 = i-F 

0 pumpl ! 


u 


e Ise 

0 purnp2 ! 

then ■ 

12 






13 : växla-pump 3 nuvarande @ ~ nuvarande ! * 

14 

15 —> 



pb-8 löl 23 '> 
task ■ 
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cr 

# 

381 



8 

l"’ 

pump-grops 

simu ler 

i n -g i- p r o -g r em m e t p b—81812' 

1 

s 

sensor1 

nivå. 

© 188 > ; 

d. 

s 

sensor2 

nivå 

© 7888 > .? 

o 

s 

sensor3 

nivå 

© 8288 > .? 

4 

s 

sensor4 

n i vå 

© 8588 > r 

nr 





6 

a 

i n-f lode 

152 

■i© it 25 nivå +! then 

“7 

l 






a 

åt-gärder 



9 


tests 

sensor4 

« 1 larm ! » 

18 



sensor3 

« 1 pump-på 2 pump-på 0 larm ! » 

11 



sensor2 

« nuvarande © pump-på. » 

12 



sensor1 

8= « pumpl © pump2 © or 

13 




it 1 pump-av 2 pump-av väx la—pump then 

14 


endtes 

ts ; 


15 

— 

,"s. 




—•C r 44 c' U cl 


0 

1 

cl 

'■ pump-gr opss i mu ler i n-gspr 

o-grammet 


; av11öde pumpl © it 

-10 nivå +! 

then 

4 

pump2 © it 

-10 nivå +! 

then .s 

5 

: visa . *' !3" ■:! Home 



& 

"7 

i 

. " Vätskenivå 
. " Pump 1 11 

: " nivå ? 

5 spaces cr 

y 

9 

pump1 © it . " 
. " Pump 2 " 

PA" else . 

" av" then cr 

10 

pump2 © it . " 

PA" else - 

" av" then cr 

11 

larm © it . " 

Det rinner 

snart över !" 

12 

e Ise edcl 

spaces then 

cr .! 


13 

14 —> 

15 


da.ta.tronic ab 


1981 


scr # 383 

8 < pump-gropssimu ler i n-gspr o-grammet 
1 

2 : inil 1 pump-av 2 pump-av 1 nuvarande 

3 8 larm ! 8 nivå. ! ; 


5 : pump-grop 

6 i ni-t be-g in intlöde åt-gärder visa. av-flöde 

7 ?terminal unti 1 r 

8 ;s 

9 


10 

11 

12 

13 

14 

15 


i 


pet—torth i . 8 

pb-818123 > 
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LISTNING 2 


»cr # 310 

0 <. processprogrammet 

1 decimal torth def i n i t i ons 

2 19 load < test-strukturen > 


O Mar i ab le pumrl 
1 Mar- i ab le nuvarande 


0 Mariable pump 2 
0 Mar- i ab le lar m 


pb—310123 > 


torget task : task 


6 : pump-pa 


o 

9 

10 

11 

12 

13 


it 

1 

pump1 ! 


e Ise 

1 

pump2 ! 

then 

it 

0 

pumpl ! 


e Ise 

0 

pump2 ! 

then .? 


: pump-aM 


: Mäx la-pump 3 nuMarande il — nuMarande ! 


14 

- 




15 





scr 

# 

311 



0 

< 

p rocessprogr ammet 



1 


sensor1 59471 c@ 

1 

and 

cL 

■ 

sensor2 59471 cd 

cL 

and 

'“I 

» 

■ 

sensor3 59471 dl 

4 

and 

4 

N 

N 

sensor4 59471 dl 

8 

and 

5 

6 

. 

åtgärder 



7 


tests sensor4 


<■ <“ 

Ö 


sensorS 



9 


sensof-2 


« 

10 


sensor 1 0= 


« 


pb-310123 > 






11 
12 

13 

14 

15 

;cr 

0 

1 


1 larm ! » 

1 pump-på 2 pump-pS. 0 larm ! 


it 1 pump—aM 2 pump—aM Mäx la-pump then » 


endtests ; 


8 

9 

10 

11 

12 

13 

14 

15 


# 312 

< pumpgropss i mu ler i n g s p r o g r am m e t 

: aut löde pumpl @ i t —10 n i oå. +! -then 

pump2 @ it —10 ni Må. +! -then .r 

: ut. pumpl @ 16 * 

pump2 @ 32 * + 

larm @ 64 t + 59471 c! .? 

: init 1 pump-au 2 pump-av 1 nuMarande ! 
0 larm ! 112 59459 c! .? 

: pumpgrop init begin åtgärder ut again ; 




pb-810123 > 
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a\? V T X t... {.K O H fsf A M f£ E> t.. ET. M fl A R 
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.:t :i. 


F 0 R B V A R F T B M A T RIA i.. V E R K , 

ROI.F JANSSON» 
l)ATAX r 
NIC AB, 

BAR..IF MALL B FR G , 

UI..F BLUGHE R , 

BIL.RIKT TQNNY LILJA AB, 
LENNART C UREN, 

I..ARCY BUKEöRINGBBYRft, 

OH LEMIN AB, 

BALA DAT A T.JAN B K T , 

GOTTFRID BOK & MUBIK, 

FPOX MABKIN AB, 

EK T Rö FÖRMAL TNINBSBOI. AO HB , 
K A T RIN E H 0 i. . fl B T E K N B K 0 i. . A , 
SAAB-ANA I UMLÄ AB, 

INVENCO, 

NORBA AB, 

NORDKAPBYL AB, 

MUSIK AB WEST IN & CO, 

L BMENBBON MMB-KONBULT AB, 

P O BER 1 NO KONSULT AB, 
i. ID DE MAL LA MEKANIBKA , 

DATAHUBET MÅNSSON & CO HB, 
AB H O f.. BB Y MER KEN , 

PER SOHHERHEIN AB, 
METALLPRODUKTER JC T IBRO AB, 
KB UNITED STI REINO AB & CO, 
TORBJÖRN DRAKENBFRO, 

A B B E R O B B O T RIK Ä F A B KIK , 
SANDLUNDS B ILFORUM AB, 

AB ORINDEX, 


STOCKHOLM 

ARVIKA 

NORRKÖPING 

NORA 

NYKÖPING 
ESLÖV 
ANOFRFD 
IIEI. BI NOBORO 
B AND l-l A OEN 
HO MÅS 
B Al.. A 
SÄVLE 

SOLLENTUNA 
EKE Hö 

KATRINEHOLM 

UMEÅ 

i-IEDEBUNI.)A 

Bl OM STE K MÅLA 

JOHANNESHOV 

STOCKHOLM 

LINKÖPING 

GÄVLE 

UDDEVALLA 

JÖNKÖPING 

VETLANDA 

LIDINGÖ 

TI BRO 

MALMÖ 

LUND 

FRUFALLAN 

KALIX 

HANDEN 


iBEV_FR8N_MEDLEM 

Till min besvikelse upptäckte jag ett mindre fel i 
PET-nyheterna nr 1 årg. 2 

På sidan 7 finns ett förslag till skydd av 
subrutiner i maskinspråk. Man ska skriva dem i en 
REM-sats, föreslås det. 

Tyvärr fungerar det inte alltid, vilket jag vet av 
egen bitter erfarenhet. 

Anledningen är att PET försöker interpretera det som 
slås in, även det som står i REM-satsen. Resultatet blir 
att de föreslagna stjärnorna kommer att avbrytas. 

Dessutom kommer PET att betrakta raden som slut vid 
första bästa hexkod '00', någos som ganska ofta 
förekommer vid programmering i maskinkod. Följden av 
detta blir att länkadresserna ställs fel och programmet 
dyker nästan ofelbart. Felet kan i bästa fall bli 
'7SYNTAX ERROR IN 10794', trots att endast radnummer 10, 
20, 30 och 40 finns i programmet. 

Således vill jag på det bestämdaste avråda från den 
här metoden för mask inkodsprogrammering ! 

Christer Jonsson 


Bromma 
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PET STYR RESTGASANALYSATOR 


SVS Vacuumservice är som bekant ett Litet 
högteknoLogi sk t företag som ingår i "Datatronic- 
gruppen". Bland annat marknadsför Vacuumservice 
restgasana Lysatorer, som är en apparat som bl. a. 
används för att mäta Läckage i gastankar. 

Man använder sig av en sorts masspektrometer som visar 
vad den analyserade gasen innehåller för ämnen. Man kan 
även avläsa proportionerna på de ingående ämnena. Denna 
masspektrometer styrs av en apparat på vilken man 
ställer in en spänning svarande mot ett visst masstal, 
och kan se på ett visarinstrument hur mycket atomer med 
det masstalet det finns i gasen. 

I denna styrelektroni k ingår även en rampgenerator som 
sveper spänningen till masspektrometern i önskad 
hastighet. Alla masstal mellan 1 och 80 kan avläsas. 

Nu finns det dock utrymme för förbättringar vad gäller 
nogrannhet och a ut oma t i sering av funktioner. Den nämnda 
styrenheten är utrustad med en analog ingång som styr 
spänningen till spektrometern, samt en likaledes analog 
utgång som ger en utspänning proportionell mot 
visarinstrumentets utslag. Det hela är som upplagt för 
att ansluta en PET via Databoard, tyckte Leif Holmen och 
Mats Widoff på Va cuumserv i ce. Dessutom kan det vara 
något att visa på IM-81 på Mässan i Älvsjö. 

Snart hade Mats och undertecknad utfört en genial 
uppkoppling mellan ett D/A-kort, ett A/D-kort samt 
styrenhetens in- resp utgångar. Mellan A/D-kortet och 
styrenheten behövdes inga speciella arrangemang, 
eftersom A/D-omvandlaren arbetar med 12 bitars 
nogrannhet. D/A-omvand l arna arbetar dock med endast 8 
bitar och den nogrannheten räcker inte för att träffa 
ett masstal tillräckligt exakt. På varje D/A-kort finns 
det dock fyra omvandlare, så med en enkel koppling med 
ett par motstånd ordnade vi det så att en D/A-omvandla re 
användes för grovinställning, och en annan för 
fininställning av spänningen. Med rätt trimmade motstånd 
fick vi så ut en spänning med 16 bitars nogrannhet. 

Nu fattades endast programmet som skulle styra 
analysatorn och presentera resultatet på ett snyggt 
sätt. 




Till att börja med skrevs ett enkelt program i BASIC för 
att kontrollera att allt fungerade. Därefter testade och 
räknade vi fram spänningsinterv a 11 et mellan varje 
masstal och lade in det i programmet. Vi lade även in en 
k ali breringsfun k t ion i programmet. Den fungerade så att 
PET satte spänningen till det värde där den förväntade 
sig toppen för kväve (masstal 28) och därefter väntade 
tills operatören justerat in kväve-toppen med en ratt på 
styrenheten och tryckt ner en tangent på PET. 

Nu hade vi ett B AS IC-program som stegade upp spänningen 
från motsvarande masstal 1 till masstal 80, läste in och 
skrev ut värdena på skärmen. Om och om igen. Det tog 
ungefär 5 sekunder att svepa över alla 80 masstal så 
presentationen av mätvärdena fick inte fördröja svepet 
nämnvärt. Alltså skrevs en assemblerrut in som ritade 
staplar och skrev masstal på skärmen. 

I uppkopplingen användes en PET 3032. Den har som bekant 
endast 40 kolumner i skärmen så det är lite svårt att 
presentera 80 staplar på en gång. Därför försåg vi 
programmet med en funktion som tillät "kameraåkningar" 
över masspektrat. 40 staplar visades på en gång, men man 
kunde alltså välja startpunkt mellan 1 och 41. 

BASIC-programmet "pokade" in de 80 värdena i ena 
kasett-buffern och angav masstalet från vilket 
presentationen skulle börja. Efter varje svepning av 
masspektrat utfördes st ape l rut i nen. Dessutom kände 
B AS IC-programm et av tangenterna "<" och ">". 0m någon av 
dessa trycktes ned justerades startpunkten för 
presentationen och stape l rut i nen utfördes igen. På så 
sätt åstadkoms "kameraåkningarna". 

Programmet kommer i framtiden att utvecklas vidare så 
att ett konku rens kraf t i g t system finns klart. 
Funktionerna går lätt (?) att utveckla så att de kan 
överträffa system för hundratusentals kronor som finns 
på marknaden i dag. 


Per Malmberg 
Datatronic AB 







PET-SIM ETT SIMULERINGSPROGRAM FÖR BERÄKNINGAR. 


Många frågar sig säkert vad simulering är. I detta 
sammanhang innebär simulering att man kan upprepa 
beräkningar flera gånger men med olika värden för att 
studera de olika utfallen. Sambanden i beräkningarna är 
de samma vid varje tillfälle. 

Programmet kan liknas vid ett stort k ordi na t syst em där 
man själv bestämmer värden eller beroenden för varje 
kordinat. Kordinaterna får man genom att ange rader och 
kolumner. 

Vilka användningsområden passar programmet för? 

Frågan är omöjlig att besvara genom att räkna upp alla 
de fall där programmet passar men generellt kan man säga 
att alla beräkningsproblem och uppgifter som går att 
ställa upp i rader och kolumner är lösbara med detta 
program. Lite mer konkret skall vi presentera några fall 
som är lämpade för lösning med PET-SIM. 

BUDGETERING-Att ställa upp en budget för t.ex. 12 
månader eller flera år, är typexempel på lämpade 
projekt. Här kan man lägga in faktorer som 
lönekostnadsökningar olika marginaler etc. Datorn räknar 
blixtsnabbt ut vad resultatet på året blir med olika 
marginaler och ökningsprocenter. 

KALYLERING-Att kalkylera en produkts kostnad och/eller 
resursförbrukning lämpar sig också mycket bra för detta 
program. Här lägger man själv upp ma teri a l andelar 
tidsenheter och får en uppställning vid olika volymer. 

STATISTIK-Att ställa upp statistik i tabellform och få 
uräkningar och utskrifter. 

Kort sagt kan man få svar på frågor som: 

-Vad händer med likviditeten om vi får betalt av våra 
kunder fem dagar tidigare? 

-Hur kommer en räntehöjning påverka vårt företag. 

-Om löneökningarna blir 9 % i stället för 7, vad innebär 
detta. 


Avslutningsvis skall vi beskriva ett praktikfall där man 
använt PET-SIM för beräkningar och registrering vid 
boks lutsanalyser. 



PET-SIM LÖSER BALANS OCH RESULTATANALYSER. 


Finansanalytiker och övriga som någon gång givit sig på 
att summera ihop Ba l ans-Resultat-och Finansierings¬ 
analysernas poster strukturera dessa och till sist 
beräkna intressanta nyckeltal, vet vilket mödosamt 
arbete detta är. 

Till Er som lägger ned många timmar av dyrbar tid på att 
bearbeta och analysera bokslut kan PETs' nyhetsredaktion 
meddela att DATATRONIC utvecklat en färdig programlös¬ 
ning via PET-SIM programmet. 

Olika personer/företag har vanligtvis olika intresse¬ 
områden vad beträffar nyckeltal och annan information 
som kan hämtas i en årsredovisning. 

I strävan att göra lösningen så generell som möjligt 
från början, har uppställningar av Balans-Resultat-och 
Finansieringsanalyserna anpassats efter de mallar som 
banker och andra fi nansinst i t ut ioner använder sig av. 
Nyckeltal såsom avkastning på totalt kapital etc. följer 
bankernas definitioner. 

Med detta är inte sagt att man är låst vid bankernas 
uppställningar. Man kan mycket lätt göra ändringar och 
tillägg själv i programmet allt efter sina egna önske¬ 
mål. 

I korthet fungerar programmet på följande vis: 

Färdiga mallar eller blanketter för balansräkningar och 
resultaträkningar ligger lagrade i datorn som man hämtar 
in i bildskärmen. Allt man behöver göra är att fylla i 
beloppen från balans-och resultaträkningarna på förut¬ 
bestämda rader. Programmet summerar alla totaler såsom 
Omsättningstillgångar I, Resultat före avskrivningar och 
finansiella poster etc. 

Efter att ha fyllt i de mallar som finns för 
Balansräkning och Resultaträkning räknar programmet 
själv ut en finansieringsanalys och nyckeltal 
automatiskt. Uppgifterna kan direkt avläsas i skärmen 
och kan också skrivas ut omedelbart. Programmet kan dels 
användas för den verkliga registreringen men kan också 
användas för simulering av resultat m.m. 

Nedan följer bilaga med prov på utseendet av 
rapporterna. Dessa fall som redogorts för här är bara 
ett fåtal av de möjliga användningsområden som finns men 
vi hoppas att många kommer få gläde av nämnda tillämp¬ 
ningar och programmets övria oanade möjligheter. 





BALANSRÄKNING TILLGÅNGAR 

Tkr 

Boksl.datum 

781231 

791231 

OMSAT.TILLG. 

Likvida medel 

298 

247 

Odisp.checkkr. 

0 

0 

Kundf ordringar 

385 

2724 

Försk.bet.ko. 

125 

33 


0 

0 

Försk.lever. 

14 

0 


. 0 

0 

övr.fordring. 

25 

35 

LIKV.OMS.TILLG. 

847 

3039 

Varulager 

249 

1089 

Påg.arbeten 

0 

0 

Oms.f astighet 

0 

0 


0 

0 

S:A OMS.TILLG. 

1096 

4128 

ANLAGN.TILLG. 

Spärrkonto 

0 

0 

Aktier i DB 

0 

2 

Aktier i övr.B 

0 

0 

Långfr.fordr. 

0 

0 

bal.utv.kostn. 

1552 

753 


0 

0 

Maskin/Inv. 

1154 

598 


0 

0 


0 

0 

Fastigheter 

0 

0 


0 

0 

S:A ANL.TILLG. 

2706 

1353 

S:A TILLGÅNGAR 

3802 

5481 


m 

m ■ 


* 

€ 
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BALANSRÄKNING SKULDER 0 EG.KAP. 


Boksl.datum 

KORTFR.SKULDER 

781231 

791231 

Lev.skulder 

126 

276 

Soc.avgifter 

0 

0 

Uppl.ko 

361 

684 

Amort.ff. 1 år 

2 

6 

Div.skulder 

129 

1175 

KORTFR.SKULD 

618 

2141 

Erh.Förskott 

0 

0 

Byggn.kreditiv 

0 

0 

Lån oms.fastighe 

0 

0 

S:A KORTFR.SKULD 
LÅNGFR.SKULD 

618 

2141 

Checkkredit 

0 

0 

Lån 

0 

0 


0 

0 


0 

0 


0 

0 

Pensionsskuld 

0 

0 

S:A LÅNGFR.SKULD 

0 

0 

MINOR.INTRESSE 

OBESK.EGET KAP. 

0 

0 

Varulag.reserv 

0 

156 

Res.utj.f ond 

0 

0 

Res.påg.arbeten 

0 

0 

Res.oms.fastigh. 

0 

0 


0 

0 


0 

0 

Invest.fond 

0 

0 

Invest.res. 

0 

0 


0 

0 

S:A OBESK.EG.KAP 

BESK.EGET KAP. 

0 

156 

Aktiekapital 

1000 

1 000 

Bundna fonder 

3175 

2184 

Disponibla medel 

2 

0 


0 

0 

Redov.result. 

-993 

0 

S: A BESK.EG.KAP. 

3184 

3184 

Fordr.styr.medl. 

0 

0 


0 

0 

S:A JUST.EG.KAP. 

3184 

3184 

S:A SKULD/EG.KAP 

3802 

5481 
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RESULTATRÄKNING Tkr 


Boksl.datum 

781231 

791231 

Omsättning 

2652 

8800 

varukostn 

-1472 

-4948 

Adm.kostn. 

-1945 

-2166 

RES.Fö.AVS.Fl.PO 
BERÄKN.AVSKR.BEH 

-765 

1686 

Maskin/Invent. 

-62 

-442 

Fastigheter 

0 

0 

Bal.utv.kostn. 

-445 

-1027 


0 

0 

RES.EF.AVS.F.FIP 
FINANSPOSTER 

-1272 

217 

Ränteintäkter 

7 

53 

Räntekostnader 

-11 

-67 

övr.fin.kostn. 

0 

-41 


0 

0 

RES.Fö.EXO.DI.SK 
EXTRAORD. POSTER 

-1276 

162 

Reav/förl Ma/Inv 

0 

0 

Reav/förl.Fastig 

0 

0 

Extrord.int 

193 

0 

RES.FÖRE DISP.SK 

BOKSLUTSDISP. 

FÖRÄNDRING 

-1083 

162 

Varulag.res. 

92 

-156 

Res.påg.arbeten 

0 

0 

Res.oms.fastighe 

0 

0 

Avs.invest.fond 

0 

0 

Avs.invest.reser 

0 

0 

Kor.avs.Mas/Inv. 

0 

0 

Kor.avs.fastigh. 

0 

0 

RES.FÖRE SKATT 

-991 

6 

SKATT 

2 

6 

REDOVISAT RESULT 

-993 

0 
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FINANSIERINGSANALYS Tkr 


Bokslutsdatum 

781 231 

791231 

Boksl.datum 



RES.Fö.DISP.SKAT 

-1083 

162 

Beräkn.av skr.beh 

507 

1469 


0 

0 


0 

0 

Skatt utdeln m.m 

-2 

-6 


0 

0 

INT.TILLF.MEDEL 

-578 

1625 

ökn.långfr.skuld 

0 

0 


0 

0 


0 

0 

Kap.tillskott 

0 

0 

0 

0 

S:A TILLF.MEDEL 
ANVÄNDA MEDEL 
INVESTERINGAR 

-578 

1625 

Fastigheter 

NA 

0 

Maskin/Invent. 

NA 

-114 

Finansiella 

NA 

2 

övrigt 

NA 

228 


0 

0 

Min.långfr.skuld 

NA 

0 

0 

0 


0 

0 

S:A ANVÄND.MEDEL 
FöRÄNDR.RÖR.KAP. 

NA 

116 

Likv.OT. ökn + 

NA 

2192 

Varulager ökn + 

NA 

840 

Påg.arbet.ökn + 

NA 

0 

Oms.fastig.ökn + 

NA 

0 

Kortfr.skuld mi+ 

NA 

-1523 


NA 

0 


NA 

0 

S:A FÖRÄNDRING 

0 

OMSÄTTNING 

NA 

1509 

2652 

8800 

OMSÄTTN.FÖRÄNDR% 

NA 

332 

ANTAL ANSTÄLLDA 

0 

0 


0 

0 

INT.TILLF.MEDEL 

-578 

1625 

AVK.TOT.KAPITAL 

-33 

6 

AVK.EGET KAPITAL 

-40 

5 

RES % AV OMS. 

-29 

19 

SOLIDITET 

84 

58 

BALANSOMSLUTNING 

3802 

5481 

SJÄLVFINANS.GRAD 

NA 

-1425 

KASSALIKVIDITET 

137 

142 

BALANSLIKVIDITET 

177 

193 

OMS.HAST.KUNDFOR 

7 

6 

OMS.HAST.VARULAG 

11 

13 


















PRISLISTA 


Samtliga priser gäller exklusive moms. 

för att arbeta med P ■ som dis- 
gram, ,ö * r p*™? hem ditt PET-paket 

ÄÄnvändaPETredansam- 

m Jämför Paketpriset med vad amjst- 

att 

köpa ett komplett PE^ket^rmasre 

Välj tillsammans med a . ket 

PET-återförsaljare vilket H 

som passar dig bast.__ 

PETSerie3000-Vetenskap 

PET vetenskap är ett mätdata. 

mätsystem undustnn, samt iu ^ 

i st PET 3016 centralenhet 
1 st PET 3040 flexskivminne 
1 st PET 3023 friktionsskrivare 
\ % PET - IEEE kablage 
1 st IEEE kablage 
10 PET flexskivor 
i st PET diskettpärm 
Medlemsskap' PET-klubben 

PET Paketrabatt 

PET Paketpris - PET KOP 

Paketpris -PET-Leasing 

PET Leasing tre är 749 kr 

Måna dskostnad ----- 

PET Serie 3000 - Administration 

For m' nd,e '0'^s^XstJSTa" program ! 
ÖOM-serien. se t^isUstans baksida, är utveck¬ 
lade för detta paket. 9.900 kr 

t st PET 3032 centralenhet g 500 kr 

1 st PET 3040 flexskivminne g 800 kr 

t st PET 4022 skrivare 400 kr 

1 st PET - IEEE kablage 400 kr 

1 VaKriPÉT^W Wamvara 1 -800 kr 

10 PET flexskivor 
i st PET diskettpärm 
Medlemskap i PET-klubben 


5.450 kr 
9.500 kr 
4.950 kr 
400 kr 
400 kr 
240 kr 
150 kr 
200 kr 
21.290 kr 
1.300 kr 
19.990 kr 



Gäller från 1981-05-01 


PET Serie 8000 - Administration 

För bokföring, ^^"^“T^stetbantenng 

ministration. io.950 kr 

1 st PET 8032 centralenhet ^ g5Q kr 

1 st PET 8050 flexskivminne g 950 kr 

1 s t PET 8024 skrivare < *' 400 kr 

1 st PET - IEEE kablage 4 oö kr 

i st IEEE — IEEE kablage 2 4 „q kr 

1 Valfri PET-märkt programvara 240 kr 

10 PET flexskivor 150kr 

1 s t PET diskettpärm 240 kr 

6 färgband till 8024 20 0 kr 

Medlemsskap i PET-klubbe 30.330 kr 

890 kr 

35.990 kr 


PET Paketrabatt 

PET Paketpris-PET-KUr 

Paketpris -PET-Leasing 

PET-Leasing tre är 


PET Paketrabatt 

PET Paketpris-PET-KUr 

Paketpris -PET-Leasing 

PET-Leasing tre år 

Månadskostnad 


1 .349 kr 


240 kr 
150 kr 
200 kr 
29.390 kr 

4.400 kr 

24.990 kr 


^TgerieBOOOoTdbehandling / 

'-•ris®-? 

"* den « ^SSesom skriver likt en sknv- 
maskitL 7ast månge gånger snabbare.^ ^ 

Om du vill byta ^PET-skn ' d etbra. Du kan 
någon annan skonskriva ®9| krjvare med ta n- 
välja på skrivare 80 ® nvändas som sepa- 

BKSSas 

duartj^a^med^tora utskriftsvolymer. 

t st PET 8032 centralenhet 
1 st PET 8050 flexskivminne 
1 st PET 8027 skönskrivare 
1 st PET - IEEE kablage 
1 ct 1E EE- IEEE kablage 

PET Ordbehandlingsprogram 

10 PET flexskivor 
1 st PET diskettpärm 
10 färgband tiH 8027/8026 
Medlemsskap 1 PET-kluboen 


PET Paketrabatt 

PET Paketpris - PET KUt" 

Paketpris PET-Leasing 

PET-Leasing tre är 

Månadskostnad 


10.950 kr 

11.950 kr 
8.950 kr 

400 kr 
400 kr 
2.400 kr 
240 kr 
150 kr 
300 kr 
200 kr 
35.940 kr 
950 kr 
34.990 kr 


1 .324 kr 
















Maskinvara 


Tillbehör 


PET 301616K 

5.450 

kr 

PET 3032 32K 

9.900 

kr 

PET 3023 Friktionsskrivare 

4.950 

kr 

PET 4022 Traktorskrivare 

6.800 

kr 

PET 3040 Flexskivminne 2x176K 

9.500 

kr 

PET 8032 32K 

10.950 

kr 

PET 8024 7 x7 traktorskrivare 

9.950 

kr 

PET 8024 7 x9 traktorskrivare 

10.950 

kr 

PET 8050 Flexskivminne 2x512K 

11.950 

kr 

PET 8026 Skönskrivare 

10.950 

kr 

PET 8027 Skönskrivare 

8.950 

kr 

NEC 5530 Skönskrivare 

16.950 

kr 

NEC Traktoraggregat 

1.500 

kr 

PET 2010 Kassettstation 

640 

kr 

Kabel PET-IEEE 

400 

kr 

Kabel IEEE-IEEE 

400 

kr 

Kabel IEEE - IEEE, 2 m 

450 

kr 

Kabel PET-NEC 

400 

kr 


PET 8010 Akustiskt modem 

2.950 

kr 

Plotter A4-storlek Hl Plot 

4.950 

kr 

Kabel PET-HI Plot 

400 

kr 

PET-VÄX Dataväxel Moderenhet 

1.900 

kr 

PET-VÄX per ansluten PET 

900 

kr 

SCIP Interface IEEE (PET)-RS 232 

2.000 

kr 

PET-COM Kommunikations- 



interface 

950 

kr 

TV-lnterface inklusive kablage 

470 

kr 

Ljuspenna 

400 

kr 

TOOL KIT (Programmerings- 



hjälpmedel) 

450 

kr 

Utbyggnadsminne 3008 till 16K 

2.350 

kr 

Utbyggnadsminne 3008 till 32K 

5.300 

kr 

Utbyggnadsminne 3016 till 32K 

4.900 

kr 


För specialtillämpningar, typ industrikort, an¬ 
slutningar till processer etc, begär prisuppgifter. 
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Förbrukningsmaterial 

Till din PET finns speciellt utvecklade disketter och färg¬ 
band. Det är viktigt att använda dessa för att din PET ska 
kunna garantera absolut högsta driftsäkerhet. 



Styckepris/kr 

1 Förp./kr 

PET Kassettband C-12 Special 

7 

6 

PET Flexskiva 10 förp 

30 

24 

PET Färgband till 3022/3023 12 förp. 

20 

18 

PET Färgband till 8024 10 förp. 

50 

40 

PET Färgband till 8026/8027 

30 

- 

PET Färgband till NEC 

60 

50 

PET Skrivhjul till NEC 

150 

- 

PET Skrivhjul till 8026/8027 

120 

- 

PET Flexskivepärm med 15 fack 

150 

- 

Extrafack PET-pärm per 5 fack 

35 


Tillgängliga stilar till skönskrivare 



Prestige Elite, Pica 10, Courier 72, Elite-12, OCR-B m/l 



(J; 10PETDISKAR 


Svensk 



litteratur 

Om du tycker att du vill lära dig mer om hur din PET 
fungerar finns det gott om litteratur på svenska som be¬ 


handlar detta. Kr 

Svensk handbok PET 35 

Svensk handbok Floppy Disk 35 

Arbetsbok 1 Bli bekant med PET’ 35 

Arbetsbok 2 'Sträng o. Indexer.variabl’ 35 

Arbetsbok 3 ’PEToch grafiska tecken’ 35 

Arbetsbok 4 'PET och kassettstation’ 35 

Arbetsbok 5'PET och user port’ 100 

Arbetsbok 6 'PEToch HP-bussen’ 100 

Arbetsbok 11 ’PET kontroll o logiska operander 35 


Utländsk 



Kr 

Users manual PET 

50 

Users manual PET FLOPPY 

50 

Users manual PET PRINTER 

50 

PET & the IEEE 488 bus (GPIB) 

105 

PET/CBM Computer guide 

105 

6502 Hardware manual 

70 

6502 Programming manual 

70 

Basic Basic 

78 

Advanced Basic 

78 

Some common Basic programs 

68 


litteratur 



Medlemsskap i PET-klubben 



Som medlem i PET-klubben får du medlemstidningen PET-nyheterna 5-6 ggr per år. I PET-Ny- 
heterna presenteras programnyheter, exempel på nya sätt att använda PET och PET-program, 
tips om hur du kan använda din PET effektivare och roligare, samt mycket mer I PET-klubben 
finns också en programbytarservice där du kan skicka in ett program du har gjort själv och byta 
till dig ett annat program ur programbytarlistan. 

PET-klubben ordnar också speciella programmeringskurser för medlemmarna. Som med¬ 
lem i PET-klubben får du också specialerbjudanden om tidningsprenumerationer, förmånspris 
på litteratur etc. 

Dessutom får du utan kostnad den engelska motsvarigheten till PET-Nyheterna. 

Ett medlemsskap i PET-klubben har visat sig vara till stor nytta för alla PET-användare. 
Därför ligger nu ett medlemsskap i PET-klubben inbakat i PET-rabatt-priser när du skaffar ditt 
PET-system. 

Du som inte redan är medlem betalar enklast in medlemsavgiften, 200 kr per år, på postgiro¬ 
konto 157001-9. Ange på inbetalningskortet att det gäller medlemsavgift i PET-klubben. 





















Programprislista 

Till din PET finns ett komplett utbud av administrativa I ordbehandling etc. Här ser du hur billigt det är att kom- 
program som bokföring, fakturering, löneredovisning, | plettera din PET med ytterligare någon rutin. 


Program 

Beskrivning 

Pris 

program 

3000- 

serien/kr 

Pris 

program 

8000- 

serien/kr 

Pris 

handbok 

kr 

PET-BOK 

Bokföringsprogram med budget och rapportgenerator. 

1.800 

2.400 

100 

PET-LÖN 

Löneprogram med möjlighet till efterkalkyl av order 
alt. projekt. 

1.800 

2.400 

100 

PET-ENT 

Order-entry-system med automatfakturering som är 
kopplat till kundreskontran. 


3.600 

100 

PET-FAKT 

Faktureringsprogram sammanlänkat med kundreskontra, 
lager och försäljningsstatistik. 

2.400 


100 

PET-GEN 

Registerprogram för listor, etiketter, medlemsregister osv. 

1.800 

2.400 

100 

PET-ORD 

Professionellt ordbehandlingssystem med avancerade 
redigeringsfunktioner. 

1.800 

2.400 

100 

PET-LAG 

Lager- och förrådsprogram med rapportgenerator. 

1.800 

2.400 

100 

PET-SIM 

Paket för finansiell planering och budgetering. Motsvarar 
traditionella simuleringspaket. 

1.800 

2.400 

100 

PET-LEV 

Leverantörsreskontra med betalningsrutiner samt 
koppling till bokföring. 

1.800 

2.400 

100 

PET-KALK 

För- och efterkalkyler med receptregister enligt bidrags¬ 
alt. självkostnadsmetoden. 

1.800 

2.400 

100 

PET-PLAN 

Ett resursplaneringsprogram med valfri tidsaxel. 


2.400 

100 

PET-PRO 

Ett projektredovisningsprogram för advokatbyråer, 
reklambyråer, byggarbetsplatser etc. 

1.800 


100 

PET-OZZ 

Databashanteringsprogram med stor lagringskapacitet 
och korta söktider. Lämpar sig för alla typer av register¬ 
hantering. 


3.600 

100 

PET-TERM 

Ett program som gör PET till intelligent terminal för 
kommunikation med olika stordatorer via valfritt interface. 


2.400 

100 

PET-KOST 

Kostnadsställebokföring motsvarande PET-BOK men 
utökad med kostnadsställeredovisning och automat- 
kontering. 


3.600 

100 

PET-FORTH 

FORTH är ett stackorienterat programmeringsspråk 
lämpat för all typ av programmering där snabbhet och 
kompakthet erfordras. 


2.400 

200 

PET-STAT 

Statistikprogram för medelvärde-varians-standardawikelse- 
beräkning och lägesmått. 

900 

1.200 

50 

PET-REG 

Statistikpaket för kurvanpassning samt korrelations- och 
regressionsanalys. 

900 

1.200 

50 

PET-DIS 

Statistikpaket för normal- students t-binomial-fördel- 
ningar mm. 

900 

1.200 

50 

PET-ASS 

Assembler för PET med editor och rutiner för utvecklings¬ 
system. 

1.800 

2.400 

50 

PET-SKOL 

Skoladministrativt program för hantering av linjeval, 
tillval etc. 

1.800 


100 

PET-PASC 

Komplett Pascal för PET. 

1.800 

2.400 

100 

PET-MAT 

Matematikprogram innehållande integraler, derivering, 
nollpunkts- och vektoranalyser. 

900 

1.200 

50 

PET-UND 1 

Underhållningsprogram. 

600 



PET-UND 2 

Underhållningsprogram. 

600 



PET-UND 3 

Underhållningsprogram. 

600 




Édatatr onicab 

Generalagent: i 


Generalagent: Datatronic AB, Vretensborgsvågen 8, 
_ --- ... , . — 7445920, - 


I Box 42094, S-12612 Stockholm, Tel: 08/74 


Telex: PET S17828. 















Masskorsband 


HÄR SER r»U NÄRMASTE 


a ve: 8 ta 

BOR a 8 

i-8 K ILO TU NA 
FA i. KÖPING 
FALUN 
GAMLE 
G A ML K 
i'.'("i i f: HuRG 
Gu HT BORG 
Gö i !■ BORG 
GÖTEBORG 
HALMSTAD 
URLHTNGBORG 
HUDIKSVALL!. 
JÖNKÖP TNG 
JÖNKÖPING 
KALMAR 
Ka RL b i A i) 

KA T R IN Filt) LM 

KRISTIANSTAD 

LINKÖPING 

LINKÖPING 

FULLA 

MALMÖ 

MORA 

NORRKÖPING 

NORRKÖPING 

OSKARSHAMN 

RONNEBY 

SKARA 

SOLNA 

SOI. HA 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

SUNDSMALL 

SÖDERTAL jh 

UDDEVALLA 

UDDLMALL A 

U M Fä 

UPPSALA 

UPPSALA 

VETLANDA 

MISBY 

VARNAMO 

mastfr as 

VAX JO 
(5 RF BRO 
ÖREBRO 
ÖSTERSUND 


M A S KIN FIR M A X . F T E RIX O N 


02 2 6 -Un 42 


{ •■ 0 R A S D A T A & I: i... h I i T R 0 NIC 


033-H U3 60 


RPU 

NORD ERS BOKHANDEL. 

BLIDS AB 
DIN DATOR 
AB NONAMF DATA 
PRI NTEX AB 
JANKEN MINIDATA 
DATAPAR AB 
GRUNDFELS 
DAT AM AI..L. A NI) 

ELEK i ROBYOG 
HALS INGEDATA 
KONTORAMA 

DATAHUSET MSNSSON & CO 

KALMAR MINIDATA 

ESSELTE SYSTEM AB 

N 0 R D S T R ö M S K 0 N T 0 R S M A S KIN F R 

SYDKONTOR 

KONTORSKON SOI.. T AB 

NORDSTRÖMS KONTORSMASKINER 

MDC MIKRODA TAGENTER 

LINDAHL Ä ROTHOEE 

PER-ERIK FINN AB 

DATAX HB 

N 0 i t D S T R ii M S K 0 N T 0 R S M A S KIN E R 

EXPEGTOR AB 

EXPORTSTABEN 

INNOMA KONSULT 

INFOTERM 

M0DUi T öRE T A.GEN M1NI -MICR0 
K IDA KONTORS 0 IND DAT A 
TEL. E INSTRUMENT 
SM ATT) AB' 

TURN-KEY DATA 
T.Ö.X SMSDATURER 
ESSELTE SVANSTROMS 
DIN DATOR 

ESSELTE SVANSTROMS 
ADB-MAST 

IP MARKNADSFÖRING 


016-14 95 91 
0515-170 20 
023-2BO 53 
026-1B IB IB 
026-10 55 30 
031-13 90 40 .{ 

031-18 02 50 
031-19 40 70 
031/20 93 40 
035-10 95 90 
042-13 33 23 
0650-140 60#“ 
036-12 84 B2 
036 11 95 55 
0400-297 77 
054-10 20 20 
0150-1 IB 68# 
044-12 60 70 
013-13 01 75 
013-11 51 75 
0920-240 94 
040-10 17 30 
0250-15591 
011-16 21 79 
011-10 40 01 


0457-103 50 
0511-105 40 
08-730 55 BO 
08-98 13 95 
08-97 03 40 
08-38 03 70 
08-21 0 5 O/Jk. 
08/60 77 0 / 
08-52 84 79 
08-15 14 40 
060-12 24 11. 


0755-327 

0522-177 


1% 


0522-352 


32 


NORDKON TUR 

E E r E K TIM M A R K N AI > S EI.. A N E RIN G 


SUNDATA 

DATABUTIKEN I VETLANDA 

BODINS SERVICE AB 

KlDA KONTORS 0 IND DATA 


BRA KONTOR 

D A UID S S i! N S M A S KIN A E E A R 
IKF AB 

FOTO MEL. AND ER AB 



090-13 90 BO 
01B-12 27 55 
018-12 05 B5 
0383-17500 
0498-101 87 
0370-357 10 
021-13 30 50 
0470-200 30 
019-13 64 50 
01 9 -1 4 V 0 0 0 
063-11 10 66 



PET-klubben 

Box 42094,12612 Stockholm 















